Hallo Gemeinde

Kann mir bitte Jemand helfen!
Wie komme ich zur Eingabe-Zelle zurück?
Dieses Sub wird erst nach Drücken der Eingabetaste, oder einer der
Pfeiltasten aufgerufen. Wie weiss ich, wohin ich zurück muss?

Vielen Dank für Eure Hilfe

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zellbereich As Range
Set Zellbereich = Range("B1:B13")
Dim posMerkerZeile As Integer, posMerkerSpalte As Integer
posMerkerZeile = ActiveCell.Row
posMerkerSpalte = ActiveCell.Column
mWB = ActiveWorkbook.Name
mWS = ActiveCell.Worksheet.Name
If Intersect(Target, Zellbereich) Is Nothing Then
Exit Sub
Else
If CStr(Target.Value) <> "5" Then
MsgBox "Falscher Wert (" & CStr(Target.Value) & ")", _
vbOKOnly + vbCritical, "File-Name: (" & mWB + ") Tabellen-Blatt: (" & mWS + ")"
Cells(posMerkerZeile, posMerkerSpalte).Select
End If
End If
End Sub