Setting an Int equal to a dnamic range

[jtaylo13]

I have an integer called NumRows that I want to be set equal to a dynamic range. It works for all values other than if the range is only equal to 1. Can anyone help?
Here is my code.
' Set numrows = number of rows of data.
If (Range("B101", Range("B101").End(xlDown)).Rows.Count > 1) Then
NumRows = Range("B101", Range("B101").End(xlDown)).Rows.Count
Else
NumRows = 1

'End If

 

[JackDanIce]

What about:

Dim NumRows as Interger
NumRows = Application.Max(1,Range("B" & Rows.Count).End(xlUp).row - 100)

 

[jtaylo13]

That works great thanks!