Compare Range Of Cells To A Value

I have a question on the vba syntax. I have a column of data whose values decrease by 1 or so as I move down the cells. My data look like:

A B C D
999.1 111
1000 110
1001 109

And here is a code that I have written:

Code:

Sub ppm_sort()
Dim strrow, endrow, i, j As Integer
strrow = 1
endrow = 5000
For i = strrow To endrow

[Code]...

What this code does it, it first looks at Column B and pulls the values from Column A to C until the value in B hits 1. Then it calculates the average of the pulled values, after which it deletes the values in column A to C. If values in column B are greater less than 100, it does not calculate the average and just deletes the columns, moving the cells up. However, I ran into this problem:

A B C D
999.1 80
1000 110
1001 109

I still need to pull the values and calculate the average but since the value in B1 is less than 100, the code does not do so. So I tried to change the code colored red above to:

Code:

If (Range("B1:" & "B" & i).Value < 100) Then but excel gave me an error of 13 run time error. Basically, I need to figure out how to compare the values in a range to a number and combine if statement.