自动修改数据从主表到子表

Question

我有一个主表，并且每行将一个新表作为标签制作，我有执行此操作的宏代码，但是我真正想要的是，当我更改主表中的任何数据时，它也会被更改自动在子工作表上 宏正在使用

Sub myTest()
    Dim lngZ As Long
    Dim wsDatenpool As Worksheet

    Set wsDatenpool = Worksheets("Sheet1")

    With wsDatenpool
        For lngZ = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            Sheets.Add.Name = .Cells(lngZ, 1)
            .Rows(1).Copy
            [A2].PasteSpecial Transpose:=True 

            .Rows(lngZ).Copy
            [B2].PasteSpecial Transpose:=True
            [A1].Select
        Next
    End With

    Application.CutCopyMode = False
    Set wsDatenpool = Nothing
End Sub