Solange sich alles auf einem einzigen Arbeitsblatt abspielt, kannst du es mit diesem Code machen. Der Code soll direkt in das Arbeitsblatt, nicht in ein separates Modul:

Public PreviousCell As Range, CurrentCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 If Target.Address = Range("A1").Address Then

   If Not ((PreviousCell Is Nothing) Or (PreviousCell.Address = Range("A1").Address)) Then

     PreviousCell.Select

   End If

 Else

   Set PreviousCell = CurrentCell

   Set CurrentCell = Target

 End If

End Sub