la routine delRow permette la cancellazione di righe che soddisfano una determinata condizione. Allo stato attuale termina al raggiungimento della prima riga vuota, ma il test di stop può essere settato a piacere modificando questa parte di codice: If IsEmpty(Cells(r, c).Value) Then ok = False

Option Explicit
Sub delRow()
    Dim ok As Boolean
    Dim r, c As Integer
    Dim fValue As Variant
    r = 1 'row start
    c = 1 'column start
    ok = True
    'get your filter value
    fValue = InputBox("Give me input filter")
    While ok
        If Cells(r, c).Value = fValue Then ' modify control as you need
            Rows(r).Select
            Selection.Delete Shift:=xlUp
        Else
            r = r + 1
        End If
        If IsEmpty(Cells(r, c).Value) Then ok = False ' when EMPTY, done
    Wend
End Sub