Sub EnumerateRows()
    Dim rngRow As Range
    For Each rngRow In Range("A1:D4").Rows
        Debug.Print rngRow.Item(1).Address
    Next
End Sub 

    interface IRange
    {
        string Address { get; set; }
        string Formula { get; set; }
        IRange Cells { get; set; }
    }

    public class Range : IRange { }
    public class Rows : IRange { }
    public class Cells : IRange { } 
     
    public void TestRange()
    {
        IRange var1 = new Range();
        IRange var2 = new Rows();
        IRange var3 = new Cells();

        Console.WriteLine(var1.Address);
        Console.WriteLine(var2.Address);
        Console.WriteLine(var3.Address);
    } 

Sub QuickRemove()

    Dim lastRow As Long, rng As Range, rngVisible As Range

    Call ResetAutoFilter(ActiveSheet)

    'Последняя строка
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Фильтруем
    Range("A1:G1").AutoFilter Field:=3, Criteria1:=555
    
    'On Error Resume Next обязательно, так как в случае если ничего не отфильтруется,
    'то возникает ошибка, а так - мы её подавляем.
    On Error Resume Next
    'Видимые ячейки - это то, что мы отфильтровали - значит, то, что нам надо.
    'Диапазон начинается со второй строки, так как первая строка - это заголовок таблицы.
    Set rngVisible = Range("A2:G" & lastRow).SpecialCells(xlCellTypeVisible)
    'Если Err = 0, то что-то отфильтровалось.
    'Можно ещё проверить так: If Not rngVisible Is Nothing Then ...
    If Err = 0 Then
        rngVisible.Delete 3 'Удаляем все строки - миссия выполнена. :)
    Else
        MsgBox Err.Description
        Err.Clear
    End If

End Sub 

Sub AnotherQuickRemove()

    Dim rngVisible As Range

    Call ResetAutoFilter(ActiveSheet)
    
    'Фильтруем
    Range("A1:G1").AutoFilter Field:=3, Criteria1:=12

    On Error Resume Next
    
    'Объёкт AutoFilter имеет свойство Range, который даёт нам диапазон,
    'находящийся "в ведомости" фильтра. :)
    'Но есть один нюанс - диапазон также содержит заголовок, который нам не нужен.
    'Данные  манипуляции избавляются от заголовка.
    With ActiveSheet.AutoFilter.Range
        Set rngVisible = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    
    If Not rngVisible Is Nothing Then
        rngVisible.Delete 3
    Else
        MsgBox Err.Description
        Err.Clear
    End If

End Sub

Sub ResetAutoFilter(sheet As Worksheet)
    Dim fs As Filters, rng As Range, i As Integer
    With sheet
        If .AutoFilterMode Then
            With .AutoFilter
                Set fs = .Filters
                Set rng = .Range
            End With
            For i = 1 To fs.Count
                If fs(i).On Then rng.AutoFilter i
            Next
        End If
    End With
End Sub