Sub test()
Dim lngLastRow As Long, lngInt As Long, lngFirstRow As Long
Dim rngStart As Range
lngLastRow = Range("B" & Rows.Count).End(xlUp).Row
Set rngStart = Application.InputBox("select cell", Type:=8)
lngFirstRow = rngStart.Row
For lngInt = lngLastRow To lngFirstRow Step -1
End Sub