Delete rows where value < 100,000

[Smos]

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.