VBA CODE TO FIND LAST CELL AND FILL FORMULA IN NEXT COLUMN UPTO END.

[SAQIBN]

Dear All,
I want a VBA Solution for following please.

I have a data list in A2:A200, (It will Change Every time), and a Formula in B1.

I want to find last Filled Cell from Column A, (i.e A200)
and to Copy Formula From B1 in B2:B200.

 

[maabadi]

Try this:

Sub Test()
Range("B1").AutoFill Destination:=Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

OR

Sub Test()
Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
End Sub

 

[SAQIBN]

Try this:

Sub Test()
Range("B1").AutoFill Destination:=Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

OR

Sub Test()
Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).FillDown
End Sub

OMG.... Thanks you soooooooooooo much......

 

[maabadi]

You're Welcome & Thanks for Follow-up.