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

I would do this one:

Sub DeleteRows()
    With ActiveSheet
        .AutoFilterMode = False 'remove filter             
        With .Range("A:G")
            .AutoFilter Field:=1, Criteria1:="="
            On Error Resume Next ' for the case when there is no visible rows
            .Resize(.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            On Error GoTo 0
        End With            
        .AutoFilterMode = False 'remove filter
    End With
End Sub