excel宏不删除空行。仅删除数据，但我想删除数据以及行

Question

我有宏，在这里它只删除数据而不删除行。例如，如果我有600,000条记录，并且在宏运行之后，我剩下15000条记录。但是在我的excel工作表中仍然显示600,000条记录：15000条包含数据的记录，其余为空。我希望它仅显示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