Excel Macro VBA - InputBox to Retrieve Range from User & Loop Down Column - Stopping When Cell Values Increase from Start Cell

Sub Looper()
Dim cellAddrss, cellValu, cell2Value As Variant
Dim Rng As Range


Set Rng = Application.InputBox(prompt:="Select the cell/range...", _
Title:="SWITCH CELL SELECTION", Default:=Selection.Address, Type:=8)


Rng.Select
J = 1
Do While Sheet5.Cells(J, 1) <> ""
ActiveCell.Offset(1, 0).Select
cellAddrss = ActiveCell.Address

If ActiveCell.Value = cellValu + 1 Then GoTo Out
cellValu = ActiveCell.Value
J = J + 1
Loop

Out:
ActiveCell.Offset(-1, 0).Select
End Sub