Option Explicit
Sub Test()
Dim rngR As Excel.Range
Dim rng As Excel.Range
If Not TypeOf Selection Is Excel.Range _
Then Exit Sub
Set rngR = Selection.Parent.Range("B4:M34")
Set rng = Selection.Cells(1)
If rngR.Row <= rng.Row And rng.Row <= rngR.Rows(rngR.Rows.Count).Row _
And rngR.Column <= rng.Column And rng.Column <= rngR.Columns(rngR.Columns.Count).Column Then
If rng.Row < rngR.Rows(rngR.Rows.Count).Row Then
rng.Offset(1, 0).Select
ElseIf rng.Column < rngR.Columns(rngR.Columns.Count).Column Then
rng.Offset(-rngR.Rows.Count + 1, 1).Select
Else
Call MsgBox("Ende erreicht.", vbExclamation)
End If
Else
Call MsgBox("Cursor befindet sich außerhalb des gültigen Bereichs.", vbExclamation)
End If
End Sub