VBA code to subtract two columns using loop

[FROGGER24]

Would like help in troubleshooting my code for a loop.
this is what i have tried so far. I am getting error 'Run time 1004 -Method range of object _Global failed.

<Sub subtract_col()
Dim LR As Long, i As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To LR
Cells(i, 10).Value = Range(i, 24).Value - Range(i, 26).Value
Next i
End Sub>

If i use the code like this there is no error
Range("J2").Value = Range("x2").Value - Range("z2").Value
Thanks for you help and time!

 

[Fluff]

You just need to change the Range to Cells

 

[FROGGER24]

Wow, that was fast! Thanks Fluff

 

[Fluff]

Another option without a loop

Sub trimmer()
   With Range("J2:J" & Range("A" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate("if({1}," & .Offset(, 14).Address & "-" & .Offset(, 16).Address & ")")
   End With
End Sub

 

[Fluff]

Wow, that was fast! Thanks Fluff

You're welcome & thanks for the feedback.

 

[FROGGER24]

Sub trimmer() With Range("J2:J" & Range("A" & Rows.Count).End(xlUp).Row) .Value = Evaluate("if({1}," & .Offset(, 14).Address & "-" & .Offset(, 16).Address & ")") End With

Sub trimmer() With Range("J2:J" & Range("A" & Rows.Count).End(xlUp).Row) .Value = Evaluate("if({1}," & .Offset(, 14).Address & "-" & .Offset(, 16).Address & ")") End With End Sub

when I tried the last formula, I get error #VALUE!, for my understanding can you explain the formula... thanks

 

[Fluff]

The evaluate function calculates a formula that is passed to it as a text string, and the formulae is effectively

=IF({1},X2-Z2)

where the {1} returns true so that it calculates the X2-Z2