Macro to do same as "Go to Blanks" and "Delete Row"

**Luminary Xion** · 02-05-2009, 09:05 PM

I'm new to macros and working on a macro to facilitate a function that usually is the following steps-

(Sorry it's long! Short version at bottom of post!)

Select row under last used row in excel sheet
Shift+Ctrl+Down Arrow
Edit > Go to (ctrl+g in '97)
Special
Blanks
[OK]
Edit > Delete
"Delete Entire Row"

Can anyone give me some keywords, advice, or solutions to do the above in macro form?

Short Version-

Select all rows under last used cell
Excel UI "Go to" Blanks (whatever that does...)
Delete selected rows

Thanks!

**solnajeff** · 02-06-2009, 12:05 AM

Hi

A good starting point is the macro recorder, which will give you a basis to work from. Assuming you start in A1 then the following code from the macro recorder applies.

Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete

From this you should be able to make any necessary changes.

Regards

Jeff