Code to copy formula down to the last row of data

[kidwispa]

Hi all,

I've just recorded a macro where in part it creates a formula in Cell A2 - what I'm trying to do is copy this formula down the column until it reaches the last row of data in column B... the line in my code I think needs changing is this

Selection.AutoFill Destination:=Range("A2:A226")

Can anyone help?

 

[VoG]

Try

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

 

[Michael M]

Maybe

Dim lr As Long
 lr = Cells(Rows.Count, "A").End(xlUp).Row
 
 
Selection.AutoFill Destination:=Range("A2:A" & lr), Type:=xlFillDefault

 

[kidwispa]

Try

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

Thanks for your replies - went with yours VoG - works perfectly