Pick a column that has data all the way down to ascertain the last row(Lrow)

I used F

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
Lrow = Range("F" & Rows.Count).End(xlUp).Row
Range("G1:G" & Lrow).FillDown
End With
End Sub

You do know that a siimple double-click on the fill handle of G1 would copy down
to bottom of F?


Gord Dibben MS Excel MVP


On Thu, 2 Aug 2007 10:38:04 -0700, len wrote:

I saw a post on how to do this and now I can't find it.... I need a formula
to copy down until there is a blank entry on the adjacent column.. I think
someone called a "copy down" macro... or something..
Thanks