Ayuda en Visual Basic con excel para programar

Hola como esta, lo que necesito es que en excel utilizando visual basic mediante un control de evento si yo escribo algo en la celda A1 de la hoja1 se escriba lo mismo en la Hoja A1 de la hoja2, lo que necesito es conectar varias columnas y celdas de diferentes hojas a una hoja final este es el código que estoy usando, lo que hace es conectar las celdas de una por una.Lo que quiero saber es si se puede hacer lo mismo pero por rangos por ejemplo conectar de la celda A1 a la A100 de la B1 a la B100 y no una por una como lo estoy haciendo ahorita. Porque el problema que tengo es que después de conectar varias celdas me lanza el mensaje de error de que la compilación es muy larga y no puede procesarla.
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
Dim RangoCeldaEditada As String
RangoCeldaEditada = Replace(CeldaEditada.Address, "$", "")
If RangoCeldaEditada = "A1" Then
HojaActual = ActiveSheet.Name
Sheets("Hoja2").Range("A1").Value = CeldaEditada.Value
End If
End Sub
Y en la Hoja 2:
Private Sub Worksheet_Change(ByVal CeldaEditada As Range)
Dim RangoCeldaEditada As String
RangoCeldaEditada = Replace(CeldaEditada.Address, "$", "")
If RangoCeldaEditada = "A1" Then
HojaActual = ActiveSheet.Name
Sheets("Hoja1").Range("A1").Value = CeldaEditada.Value
End If
End Sub

{"lat":9.43822439134335,"lng":-83.759765625}