Cathy

Adjust to suit.

Sub Auto_Fill()
Dim lrow As Long
With ActiveSheet
lrow = Range("B" & Rows.Count).End(xlUp).Row
Range("C1:C" & lrow).FillDown
End With
End Sub


Gord Dibben Excel MVP

On Tue, 22 Feb 2005 07:25:10 -0800, "Cathy U" <Cathy
wrote:

I am creating a Macro which sorts and adds a formula to the right of a
column. I want to be able to fill down the data, without creating a range
because the number of rows can change. I want the formula to fill down to
the last active cell in the column on the left of the formula. Is there a
shortcut key I can use when recording the macro?

Thanks.
Cathy U