Repeat code for rows

[bjerke]

Hi,
I've made this code for one row, and want to repeat it for the next 200 rows or so. Any tips?

Dim d As Double


d = Range("H10").Value
Range("H10") = d + Range("J10").Value


d = Range("I10").Value
Range("I10") = d + Range("K10").Value


Range("J10").ClearContents
Range("K10").ClearContents

 

[Fluff]

Hi & welcome to the board.
How about

Sub AddCells()
   With Range("H10:H210")
      .Value = Evaluate(Replace(Replace("if({1},@+@2)", "@2", .Offset(, 2).Address), "@", .Address))
      .Offset(, 1).Value = Evaluate(Replace(Replace("if({1},@+@2)", "@2", .Offset(, 3).Address), "@", .Offset(, 1).Address))
      .Offset(, 2).Resize(, 2).ClearContents
   End With
End Sub

 

[bjerke]

Works perfect. Thanks!

 

[Fluff]

Glad to help & thanks for the feedback