Mám to:
Editor VBA (alt+F11) - přidat do modulu listu proceduru:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Set Target = Target.Resize(1, 1)
Me.Range("c1").Value = Target.Value
Set Target = Nothing
End Sub