VBA Loop help

[amxtomzo]

thank you or taking the time to help me out.
I am trying to usee VBA to copy and paste a formula down a column to the last row used row. But i seem to hit a snag.
This is my code, if anyone can help that would be great.

Sub COPYPRODUCTIONGOALS()
Worksheets("CENTRAL").Select
Range("i2").Select
ActiveCell.FormulaR1C1 = "=(RC[-3]*100)+RC[-2]"

FinalRow = Worksheets("CENTRAL").Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To FinalRow

Worksheets("CENTRAL").Cells(I, 9).Resize(1, 1).Copy
Worksheets("CENTRAL").Cells(NextRow, 9).Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
NextRow = NextRow + 1
Next I

End Sub

thanks again

Thomas

 

[Norie]

Thomas

Where is the formula you want to copy?

Worksheet("Central").Range("I2:I" & LastRow).FormulaR1C1 = ""=(RC[-3]*100)+RC[-2]"

 

[amxtomzo]

the formula is starting in cell I2

 

[amxtomzo]

No luck it returns an "application-defined or object-defined" error message

Thomas