Dim lr As Long
' Find last row on Sheet1 in column A with data
lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
' Populate sheet2 with formulas
Sheets("Sheet2").Range("A1:A" & lr).FormulaR1C1 = "=Sheet1!RC"
It seems now that you have posted this question in at least 3 different threads.
Please STOP starting the threads on the same issue! As rules state, all posts should be made back to the original thread.