find last row in one column and copy + paste data to same row in a

[Guest]

I'm attempting to do the following in an excel macro:
Step 1: - find last row containing data in column X
Step 2: - copy the formula from cell Y1 through every cell down to Y* where
* represents the row number found in step 1

Can anybody help? Thanks.

 

[Gord Dibben]

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
Lrow = Range("X" & Rows.Count).End(xlUp).Row
Range("Y1:Y" & Lrow).FillDown
End With
End Sub


Gord Dibben MS Excel MVP

 

[Guest]

That did it -- many thanks.

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
Lrow = Range("X" & Rows.Count).End(xlUp).Row
Range("Y1:Y" & Lrow).FillDown
End With
End Sub


Gord Dibben MS Excel MVP