Excel 如何将标题行从初始图纸复制到新创建的图纸中

您好，我使用此代码将数据从概览表复制到当前表中，或者如果该表不存在，则创建它。然而，我正在努力解决如何在else位添加一两行，以便将标题行（A1-G1）从overview复制到新的工作表中

Sub CopyRows()

Dim rngMyRange As Range, rngCell As Range
Dim sht As Worksheet
Dim LastRow As Long
Dim SheetName As String



With Worksheets("Overview")
Set rngMyRange = .Range(.Range("D2"), .Range("D65536").End(xlUp))

For Each rngCell In rngMyRange

    rngCell.EntireRow.Select

    Selection.Copy

    If (WorksheetExists(rngCell.Value)) Then
        SheetName = rngCell.Value
        Sheets(SheetName).Select
        Set sht = ThisWorkbook.Worksheets(SheetName)
        LastRow = sht.Cells(sht.Rows.Count, "D").End(xlUp).Row
        Rows(LastRow + 1).Select
        Selection.Insert Shift:=xlDown
    Else
        Sheets.Add After:=ActiveSheet
        Rows("1:1").Select
        Selection.Insert Shift:=xlDown
        ActiveSheet.Name = rngCell.Value
     Sub copyheadernames()

   End Sub
   End If
    'Go back to the DATA sheet
    Sheets("Overview").Select
    Next

End With

End Sub

Function WorksheetExists(sName As String) As Boolean
WorksheetExists = Evaluate("ISREF('" & sName & "'!A1)")
End Function

---

在sub的开头，我设置了一个覆盖概览标题的命名范围，然后在else部分将该范围复制到所需的目的地，例如

。。。 将SheetName设置为字符串 将标题设置为范围

设置标题=工作表（“概述”）。范围（A1:G1）

然后在其他部分更改

标题.复制目的地：=

但要做到这一点，您需要更改插入数据的点，以便为标题保留一个空行