Delete Blank Rows
The obvious way to remove blank rows from a data set is to simply sort the data. This moves the blank rows to the bottom of the data and “removes” them. But what if you want the blank rows removed, however you don’t want the data sorted? VBA.
The following macro will remove blank rows without any sorting (turn off screen updating to go faster).
Dim x As Long
For x = .Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
If WorksheetFunction.CountA(.Rows(x)) = 0 Then
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about Easy VBA. A VBA add-in to quickly insert any of the sample code found on our site directly into the Visual Basic Editor, save your own frequently used code, and more!Learn More!
Did you find this VBA tutorial useful? Then share it with your friends and colleagues: