Tips & Tricks 137 – VBA – Delete Blank Rows for a Range Quickly (without Looping)

Suppose, you have data like this and you want to delete rows 3,4,6,8,11 & 12 as they are blanks.

You need not loop through all cells but you can perform this operation is one shot. You can use below code for the same

On Error Resume Next
Range("A1:A13").SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0