Delete a group of rows with a condition

Hi, everybody
I use this macro to delete rows with a lower amount compared to the one specified by the user:

Sub DeleteRows()
    Dim ur As Integer
    Dim limit$
    limit = InputBox("Delete rows with amount lower than:", "INSERT THE AMOUNT")
    With Sheets("mySheet")
        ur = .Cells(Rows.Count, 22).End(xlUp).Row
        For n = ur To 2 Step -1
            If .Cells(n, 22).Value < CLng(limit) Then
                .Cells(n, 22).EntireRow.Delete
        End If
        Next n
    End With
    MsgBox ("Operation completed successfully")
End Sub

Now I need something more. Let's assume that those amounts are related to some client: I have to delete ALL the rows related to a client, if none of them reach the amount specified by the user.

For example:
Client A - 25
Client A - 29
Client A - 35
Client B - 28
Client B - 26
Client B - 29
If the limit is 30, I must keep all of rows for Client A, and delete all of rows for Client B.

I hope my explanation was quite clear...
Any help is welcome,
thank you in advance!

hi ducky6
Why use code when Advance filter will do the trick.

This is the code that I wrote so far:

Sub DeleteRows()
    Dim ur As Integer
    Dim limReached As Boolean
    Dim limit$
    limit = InputBox("Delete rows with amount lower than:", "INSERT THE AMOUNT")
    client = ""
    With Sheets("mySheet")
        ur = .Cells(Rows.Count, 22).End(xlUp).Row
        For n = ur To 2 Step -1
            limReached = False
            If .Cells(n, 22).Value < CLng(limit) Then
               limReached = True
            End If
            If Replace(Cells(n, 2), " ", "") <> Replace(client, " ", "") Then
               If limReached = False Then
                  Do While (Replace(Cells(n, 2), " ", "") = Replace(client, " ", ""))
                  ActiveCell.Offset(1, 0).Select
                  ActiveCell.EntireRow.Delete
                  Loop
               End If
            End If
            client = Cells(n, 2)
        Next n
    End With
    MsgBox ("Operation completed successfully")
End Sub

but it doesn't work... it doesn't delete any row and the message box appears almost immediately.
Where am I wrong?

Thank you

EDIT: the variable limReached never changes to True, even when the limit is reached?

Hi ducky6,
so any customer that has one value about the input value , has all records saved even it one is below the input value?

can you attach a sample worbook
have to loop though list and test names , then add them to collection then delete if not in the list

Here is one way, it needs a couple of helper columns though.

not as sweat as daves
but different

Option Explicit
Sub tester()
    Dim GoodCustomer As New Collection, YourValue As String, LastRow As Long, CellValue, GoodValue
    Dim xRow As Long, pItem
    YourValue = InputBox("Value", "value")
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For Each CellValue In Range("$A$3:$A" & LastRow)
        On Error Resume Next
        GoodCustomer.Add CellValue, CStr(CellValue)
    Next
    Rows("3:3").Select
    With Selection
        .AutoFilter
        LastRow = Cells(Rows.Count, 1).End(xlUp).Row
        .Range("$A$3:$D" & LastRow).AutoFilter Field:=2, Criteria1:=">=" & YourValue
        For Each GoodValue In Range("$A$3:$A" & LastRow).SpecialCells(12)
            On Error Resume Next
            GoodCustomer.Remove GoodValue
        Next
        .AutoFilter
    End With
    For xRow = 4 To LastRow
        For Each pItem In GoodCustomer
            If Cells(xRow, 1) = GoodCustomer.Item(pItem) Then
                Cells(xRow, 3) = "X"
            End If
        Next pItem
    Next xRow
    Rows("3:3").Select
    With Selection
        .AutoFilter
        .Range("$A$3:$D" & LastRow).AutoFilter Field:=3, Criteria1:="<>X"
    End With
End Sub

First of all, thank you both!

I checked your solutions and of course they work perfectly. This is exactly what I was trying to do.
Both use helper columns, but it shouldn't be a big deal.

I hope this topic will be useful for other users on this Forum.

Thank you again!

P.S. I just have a question for Daves: what RC[3], R1C5, C[1], RC[1], C[-1] are exactly?
I assume they are references to the columns, but how can I change them if I need to refer to other columns? For example: AA and AB as helper columns, B as client and V as amount?
Sorry but I'm really a newbie at macro...

Try this amended code, it is alot faster than the first example by not using the loop.

Sub DeleteRows()

    Dim i As Long, LastRow As Long



    limite = InputBox("Delete rows with amount lower than:", "INSERT THE AMOUNT")
    Range("E1") = limite
    If Range("E1") = "" Then Exit Sub
    Columns("A:B").ClearContents

    Range("A2", Range("C65536").End(xlUp).Offset(0, -2)) = "=COUNTIF(RC[3]:RC[3],"">="" &R1C5)"
    Range("B2", Range("C65536").End(xlUp).Offset(0, -1)) = "=IF(SUMIF(C[1],RC[1],C[-1])=0,"""",1)"
    LastRow = Range("B" & Rows.Count).End(xlUp).Row

       With Range(Range("B2", Range("C65536").End(xlUp).Offset(0, -1)), Range("B2", Range("C65536").End(xlUp).Offset(0, -1)))
        .AutoFilter Field:=1, Criteria1:="="
        .EntireRow.Delete
    End With

End Sub

Maybe attach a sample workbook that shows your real layout.