Formula R1C1 going all the way to bottom

[Guzzlr]

Hello All
I have the below from the recorder. The problem, is the formula computes all the way to the bottom, and my data ends much sooner, so the program really slows down.
How do I have the formula compute to the end of cells that it is requiring? For example if in this example, the formula is only grabbing numbers from columns E& F, down to row 3200 (this will be different every time I load new raw data) how can it stop at 3200, instead of going all the way down?
Thanks for the help

Range("I2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-4]"
Range("I2").Copy
Range("I3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste

 

[maabadi]

Changing this

Selection.End(xlDown)

to
3200

AND
Why don't use this:

Sub Test()
Range("I2:I3200").Formula = "=F2-E2"
End Sub

 

[Fluff]

Try

Range("I2:I" & Range("E" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=RC[-3]-RC[-4]"

This will insert the formula from I2 to the last row in col E

 

[Guzzlr]

Try

Range("I2:I" & Range("E" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=RC[-3]-RC[-4]"

This will insert the formula from I2 to the last row in col E

OK...This did work good, and sped thanks up drastically! Thank you very much

 

[Fluff]

Glad we could help & thanks for the feedback.