用于插入动态行的行的vba代码

Question

需要修改当前将当前区域粘贴到指定页面的代码，而不是读取调用的工作表上使用的行数，然后在粘贴数据之前插入该行数。如果被叫的表是＆gt;则有问题。 187行将粘贴到不应该触及的现有数据上。需要它然后重新调整新的工作表被调用到粘贴区域

    Dim wkSht As Worksheet

For Each wkSht In Sheets
'sheet6 is the DashboardMain sheet

    If Sheet6.Range("E3").Value = wkSht.Name Then
    wkSht.Range("A1").CurrentRegion.Copy Destination:=Sheet6.Range("A12")

    End If


Next