Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 0 And Target.Row < 3 Then
Application.EnableEvents = False
ActiveSheet.Cells(1, 1).Value = Target.Value
ActiveSheet.Cells(2, 1).Value = Target.Value
Application.EnableEvents = True
End If
End Sub