Sub AddColumn() Dim i As Integer For i = 4 To 1000 If Cells(i, 17) = "VO" And Cells(i, 19) = "VO" Then Cells(i, 7) = Cells(i, 17) + Cells(i, 19) ElseIf Cells(i, 17) <> "VO" Then Cells(i, 7) = Cells(i, 19) End If Next i End Sub
