Delete Blank Rows after AutoFilter

Question

I have the following code in my Excel sheet:

Sub DeleteRows
\'Filter CMReport to delete (Blank) rows.
    With ActiveSheet
        .AutoFilterMode = False
           


        

Answer 1

If all you need to do is to delete rows with blanks in column A , you don't need to filter, just:

Sub DeleteRows()
    Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub