porque no borra este código?

[niconico]

La solución me la ha dado KL,
hoja1

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    On Error Resume Next
    Set rng = Intersect(Target, [A1:A10])
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Hoja2.Range(rng.Address).Value = rng.Value
    Application.EnableEvents = True
End Sub

hoja2

Código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    On Error Resume Next
    Set rng = Intersect(Target, [A1:A10])
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Hoja1.Range(rng.Address).Value = rng.Value
    Application.EnableEvents = True
End Sub