Hi,
If column B is variable in length, then try,
Sub test()
Dim lastrow As Long
lastrow = Cells(Rows.Count, 2).End(xlUp).Row
Range("R2").Copy Range("R3:R" & lastrow)
End Sub
Also, to prevent the formula in cell R2 from accidentally being deleted, load that at run time as well.
Range("R2:R" & lastrow) = "=10*ROW()"
for example.
Bye,
Jay