VBA for IF statement across Range

[Small Paul]

Hi All

I am trying to use an IF statement in a VBA and am struggling!
A section of the range (in columns E & F) is below:

500,000	263,000
500,000	544,000
500,000	383,000
500,000	294,000
650,000	563,000
650,000	386,000
1,000,000	980,224
1,000,000	1,422,480
500,000	462,000

<colgroup><col><col></colgroup><tbody>
</tbody>

I need to show the difference, for each row, in column H. Easy as a one off : =if(E4>0,E4-F4,"") and copy down!

    Range("H4:H2533").Select    ActiveCell.FormulaR1C1 = "=if(E4>0,E4-F4,"""

Can anybody please advise?
Many thanks
Small Paul.

 

[steve the fish]

Like this maybe, change Sheet1 to your sheet name:

With Sheets("Sheet1")
    lr = .Range("E" & .Rows.Count).End(xlUp).Row
    If lr > 3 Then .Range("H4:H" & lr).FormulaR1C1 = "=IF(RC[-3]>0,RC[-3]-RC[-2],"""")"
End With

 

[Small Paul]

That is fantastic.
Thank you very much Steve The Fish