Deleting Empty rows in Excel using VBA

Question

I want to delete Empty rows by using the below code:

worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

The code above is working fine, but giving run time error '1004': No Cells were found.

Answer 1

On Error Resume Next
worksheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

When there are no empty cells, error handling is helpful. If there are no cells of that kind, SpecialCells(xlCellTypeBlanks) will always return an error; therefore, the only method to handle it (as far as I am aware) is to employ error handling (xlCellTypeBlanks).