Zelle per Mausklick füllen (Erweitern)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E5:AA5")) Is Nothing Then
Target = Target + 1
[A2].Select
End If
End Sub