Delete rows where value < 100,000

Hi,

I am writing a macro where I need to delete all rows below a certain value, in this case 100,000.
As you can see in the (simplified) example, I have a column with names and numbers. So all the rows where the value in column B is smaller than 100,000 need to be deleted. But 100,000 can occur multiple times.
So in this case everything from row 9 and down should be deleted. The rows are sorted so there can't be a value greater than 100,000 below row 9.
If possible, I would like to do it without iterating through all the rows and checking each value.

Can anyone help me with this? Your help would be greatly appreciated.

Hello & Welcome to the Board,

Try...

Sub FilterDelete()
    With Range("B1", Range("B" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="<100,000"
        .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
        .AutoFilter
    End With
End Sub

You're very welcome