Sorry about that last non-post.

Try this:

Sub myAutoFill()
Dim Bot As Long
With ActiveCell
Bot = .Offset(-1, 0).End(xlDown).Row - 1
.Offset(-1, 0).AutoFill _
Destination:=Range(.Offset(-1, 0).Address, Cells(Bot, .Column)), _
Type:=xlFillDefault
End With
End Sub

Assign a shortcut and make it faster.

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Angela T" wrote:

Is there a macro that I can setup to auto fill down? For example I have an
Excel file that has numbers or text in column A rows 1, 5, 10, 17, etc. I
want to auto fill down whatever is in the cell above, only to the next
un-empty cell. So A1 auto fills down thru A2-A4 then A5 atuo fills down thru
A6-A9 and so on.