memo AutoFilter

Sub test00()

    Dim targetRange As Range
    ' オートフィルタの設定
    With Range("A1").CurrentRegion
        .AutoFilter field:=1, Criteria1:=""
       On Error Resume Next
        ' 絞り込んだ行（表示させた行）のみを対象として取得
        Set targetRange = .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
        'オートフィルターを削除
       .AutoFilter
    End With
    ' 絞り込んだ行（表示させた行）のみを削除
    targetRange.Delete shift:=xlUp

    MsgBox "完了"
    
End Sub