Excel: Automatischer Wert bei Anklicken einer Zelle

Hallo in die Runde,

ich habe folgende Herausforderung:

Ich möchte das beim Anklicken einer Zelle in Excel in der Range C14 bis C63 automatisch in der jeweils angeklickten Zelle ein Zahlenwert z. B. die 1 ausgewiesen wird.
Gibt es hierfür eine Lösung z. B. als Makro oder der Gleichen?

Vielen Dank schon jetzt für die Unterstützung.

MfG
Osiris65

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
     if not Application.Intersect(Range("C14:C63"),target) is nothing then  
        Target.Value = 1
    End if
End Sub