Macro to delete a group of CELLS

Giganews Newsgroups
Subject: Macro to delete a group of CELLS
Posted by:  an…@onandon.com
Date: Fri, 5 May 2006

I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data.  I
just want the macro to delete the 4 or 5 adjacent cells and move the data
block up (similar to a right click delete- which asks if you want up, right
left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
    Range("E2378:L2378").Select
    Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell.  I would like my
macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

Replies