That does it. Thank you.
Terry

"Gord Dibben" wrote:

Sub Selectdown()
Range(ActiveCell, ActiveCell.End(xlDown).Offset(-1, 0)).FillDown
End Sub


Gord Dibben MS Excel MVP

On Mon, 30 Jul 2007 12:08:03 -0700, Terry
wrote:

I tried using the relative reference to automatically (shift-end-down arrow
then up arrow one row) to autofill. The number of rows will vary each time.
The macro doesn't record properly.

What is the best way to handle this?

Thank you.