Paige,

The macro recorder gave me this listing. This is the code Shift Control Down and deleting the range.

Tom Molloy

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 10/27/99 by Thomas Molloy
'

'
    Range("E3").Select
    Selection.End(xlDown).Select
    Range("E3:E10").Select
    Selection.Cut
    Selection.ClearContents
End Sub

>Hi All,
>
>In Lotus I could create a macro that would set the pointer in a cell,
>code the 'End' 'Down' keystrokes and delete the selected range. This was very helpfull when inserting totals several hundred rows down because I didn't know how many rows the detail consume. I use this method to delete all blank cells between the detail and the totals.
>
>How can I write a VBA routine to do this in Excel. I know I can set the pointer in the first blank cell in the column and hold the 'Shift' key and press the 'End' 'Down arrow' key and block the cells. but how to write this in VBA? TIA.
>
>Regards,
>
>Paige