Макрос Excel не удаляет пустые строки. Удалить только данные, но я хочу удалить данные, а также строки

Question

У меня есть макрос. При этом удаляются только данные, а не строки. Например, если у меня есть 600 000 записей и после запуска макроса у меня остается 15 000 записей. Но в моем листе Excel по-прежнему отображается 600 000 записей: 15 000 записей с данными и пустыми. Я хочу показать только 15000 записей. Все пустые строки должны быть удалены. Вот мой код:

Sub DeleteRecord()
    Dim MySheet As String
    Dim cnt As Long
    MySheet = ActiveSheet.Name
    Cells(1, 1).CurrentRegion.AutoFilter Field:=33, Criteria1:= _
        ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"


    cnt = Worksheets(MySheet).Cells.SpecialCells(xlCellTypeLastCell).Row
    If cnt > 3 Then Range("A2", ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.EntireRow.Delete
    End If
    Cells(1, 1).CurrentRegion.AutoFilter Field:=33
End Sub