Coloque este código no Módulo Sheet1 (clique com o botão direito do mouse na guia Sheet1 e selecione "View Code"):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rFrom as Range
If Target.Count = 1 Then
With Target.WorkSheet
Set rFrom = .Range("A:A")
If Not Intersect(Target, rFrom) Is Nothing Then
Application.EnableEvents = False
'Include next line Just in Case something happens
' You don't want to leave EnableEvents off
On Error Resume Next
rFrom.Copy Worksheets("Sheet2").Range("A:A")
If Err.Number <> 0 Then
Msgbox "Error Occurred"
End If
Application.EnableEvents = True
End If
End With
End If
End Sub
Coloque o mesmo na Planilha2 (mudando obviamente os endereços apropriados). Mude a Folha2 para Folha1
Para alterar apenas uma folha:
= Sheet1! A: A se você quiser que as células em outra folha espelhem células na coluna A na Planilha1.
Também outra pergunta feita em super user é semelhante ao seu, mas não é o mesmo.