Hey JohnUK -

Try this-

Sub Copy_Down()

Range("a1").Copy Range("a1", Range("b1").End(xlDown).Offset(0, -1))

End Sub

This will copy the formula in cell A1 down until it comes to the end of
column B's data