Lo siento, esto me pasa por escribir código de memoria.
prueba así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$22" Then
Cells.Select
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Sheets("Hoja1").Select
Range("A1").Select
Application.CutCopyMode = False
End If
End Sub