Option Explicit

Public Sub myWorksheet_Change(Target As Range)
    Dim sh As Worksheet
    Dim st As Worksheet
    Set sh = Target.Parent
    
    Dim tb As ListObject
    Dim tt As ListObject
    On Error Resume Next
    Set tb = sh.ListObjects(1)
    
    Set st = sh.Parent.Sheets(3 - sh.Index)
    Set tt = st.ListObjects(1)
    On Error GoTo 0
    If Not tb Is Nothing Then
        If Not tt Is Nothing Then
            If Not Intersect(Target, tb.DataBodyRange) Is Nothing Then
                Dim Application_Calculation As Long
                Application_Calculation = Application.Calculation
                Application.Calculation = xlCalculationManual
                Application.EnableEvents = False
                
                Dim dy As Long: dy = tt.Range.Row - tb.Range.Row
                Dim dx As Long: dx = tt.Range.Column - tb.Range.Column
                
                Dim cl As Range
                Dim ct As Range
                For Each cl In Intersect(Target, tb.DataBodyRange)
                    Set ct = st.Cells(cl.Row + dy, cl.Column + dx)
                    ct.FormulaR1C1 = cl.FormulaR1C1
                Next
                
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    myWorksheet_Change Target
End Sub