Selection XL Down 3 consecutive times

[LuisE]

Is there any way to do the following in one line of code?
I need to use that row as a variable. It is not the last cell in that column.
Thanks in advance

Range("B1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.Row

 

[Gary''s Student]

How about:

Sub ordinat()
Range("B1").Select
Selection.End(xlDown).End(xlDown).End(xlDown).Select
n = Selection.Row
End Sub

only two Selects rather than four.

 

[Gary''s Student]

Better still:

Sub better()
Range("B1").End(xlDown).End(xlDown).End(xlDown).Select
n = Selection.Row
End Sub