Option Explicit
Dim Prior As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Prior Is Nothing Then
    Range("A1").Select
    Set Prior = Selection
    Exit Sub
End If

Application.EnableEvents = False
Select Case Prior.Address
    Case "$A$1", "$A$2", "$A$3", "$A$4", "$A$5", "$A$6"
        Prior.Offset(1).Select
        Set Prior = Selection
    Case "$A$7"
        Range("B1").Select
        Set Prior = Selection
    Case "$B$1", "$B$2", "$B$3", "$B$4", "$B$5", "$B$6"
        Prior.Offset(1).Select
        Set Prior = Selection
    Case "$B$7"
        Range("A10").Select
        Set Prior = Selection
    Case "$A$10", "$A$11", "$A$12", "$A$13", "$A$14", "$A$15", "$A$16"
        Prior.Offset(1).Select
        Set Prior = Selection
    Case "$A$17"
        Range("B10").Select
        Set Prior = Selection
    Case "$B$10", "$B$11", "$B$12", "$B$13", "$B$14", "$B$15", "$B$16"
        Prior.Offset(1).Select
        Set Prior = Selection
    Case "$B$17"
        Range("A1").Select
        Set Prior = Selection
End Select
Application.EnableEvents = True

End Sub