Al,

You could just turn on the recorder to discover the code.

You would find something like.....

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 03.11.2003 by Kevin Stecyk
'

'
Range("A4:B6").Select
Selection.Delete Shift:=xlUp
End Sub


I think you could simplify the code slightly as follows:

Sub Macro1()
Range("A4:B6").Delete Shift:=xlUp
End Sub


Hope that helps.

Regards,
Kevin

"Al" wrote in message
...

You know when you Delete cells in Excel, it asks you if
you want to move the cells up or left to fill in the gap.

What is the code to Delete a Range (A4:B6) and then
automatically have the cells move up to fill the gap?


Thx,
Al