Delete rows where value < 100,000

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