I cannot figure out how to get a macro to go to the last
row(s) of a worksheet and do a fill to the next free
row. The VBA never seems to work out. I need to do it
for one row, and a range of cells on another worksheet.
Please help!!! How do I do this?

Sub Macro2()
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.FillDown
End Sub

Regards,
Tom Ogilvy

Mike Fenton wrote in message
...
I cannot figure out how to get a macro to go to the last
row(s) of a worksheet and do a fill to the next free
row. The VBA never seems to work out. I need to do it
for one row, and a range of cells on another worksheet.
Please help!!! How do I do this?