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

On Tue, 31 Jul 2007 09:08:00 -0700, Eric_G
wrote:

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.