Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, s As Variant
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
i = Target.Value: s = Target.Row
Application.EnableEvents = False
Columns("A:A").ClearContents
Cells(s, 1) = i
Application.EnableEvents = True
End If
End Sub