Excel 将整个工作表复制到另一个工作表

我有一个excel工作簿，当前内置了一个宏，当按下宏按钮时，当前工作簿将保存到宏创建的目录中，然后清除模板，以便为第二天的数据腾出空间

我不想使用此宏将整个工作簿保存为一个新文件，然后必须对其进行跟踪才能查看，而是编辑宏以执行以下操作：

不要创建或保存新文件

单击“New Day”宏后，将名为“Morning Report”的模板工作表中的内容移动到新工作表中

新选项卡的名称应为移动模板的日期，该模板位于W1

代码如下：

Sub NewDay()

Dim fn, d, ln
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set fs = CreateObject("Scripting.FileSystemObject")
If fs3.FolderExists("c:\Morning Reports\") = True Then GoTo ext Else GoTo mkdir:
mkdir:
  Set d = fs.CreateFolder("c:\Morning Reports\")
  With Application
    .UserName = "MD Totco"
    .StandardFont = "Arial"
    .StandardFontSize = "10"

    .DefaultFilePath = "c:\Morning Reports\"
    .EnableSound = False
    .RollZoom = False
  End With
ext:
  Sheets("Morning Report").Select
    ActiveSheet.Unprotect

  ChDir "c:\Morning Reports\"
    tempdate = ActiveSheet.Range("w1") + 1
    ActiveSheet.Range("w1") = tempdate
    tDate = Format(tempdate, "mmm d yyyy")
    WellName = ActiveSheet.Range("s2")

    fName = tDate + ", " + WellName
    ActiveWorkbook.SaveAs FileName:=fName

---

这将是Sub NewDay中创建新文件并保存的部分，其余代码将擦除并刷新模板。但是，我不希望保存工作簿，我只希望将工作簿的“晨报”工作表复制到新工作表上。

复制工作表很容易：

Public Sub copy()
 Sheets(1).copy after:=Sheets(1)
End Sub

---

其余部分应该很容易理解。

您可以发布代码作为编辑的基础吗？