Go to blanks then delete entire row

[Mashtonsmith]

Hello

Does anyone have any nifty code that will Go To Special (Blanks) then delete entire row - all in once action?

I guess you;d either need to select the column first or prompt the user to select the column when running the macro?

Thanks

 

[JackDanIce]

Try:

Range("A1:A100").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

This will error if no blank cells exist in the range.

You rarely, if ever, need to select a range via VBA code.

 

[Fluff]

This will delete all rows where col A is blank

Sub Delrws()
range("A:A").SpecialCells(xlblanks).EntireRow.Delete
End Sub