Sub test444()

Dim myRng As Range, iRow As Range
Set myRng = Range("A1:AB1100")

For Each iRow In myRng.Rows
  If А >  0  Then
    If Е >  0  Then
      I = A + E
    End If
  End If
  If B>  0  Then
    If F>  0  Then
      J= B + F
    End If
  End If
Next iRow

End Sub

Sub test444()

Dim i As Integer

For i =  1  To  1100 
  If Cells(i,  1 ) >  0  And Cells(i,  5 ) >  0  Then
    Cells(i,  9 ) = Cells(i,  1 ) + Cells(i,  5 )
  End If
  If Cells(i,  2 ) >  0  And Cells(i,  6 ) >  0  Then
    Cells(i,  10 ) = Cells(i,  2 ) + Cells(i,  6 )
  End If
Next

End Sub