macro to fill down the fomula in a2

[Peterfc2]

Macro to fill down the fomula in a2 but not passed a blank cell.

Help needed please?

 

[Peterfc2]

oops!
Macro to fill down the fomula in B2 but not passed a blank cell in A2
Sorry

 

[VoG]

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").AutoFill Destination:=Range("B2:B" & LR)
End Sub

 

[Peterfc2]

Try

Sub test()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("B2").AutoFill Destination:=Range("B2:B" & LR)
End Sub

spot on! cheers peter