excel宏复制并粘贴+删除所有内容

Question

我正在尝试使用宏来打开工作簿，并将单元格H52：CO402中的第一个工作簿中的内容复制到打开到单元格B1和打开的工作簿。此外，如果有人可以告诉我代码，以完全清除在粘贴复制的信息之前打开的第二本书。我到目前为止的代码是......

Sub copyandpaste()
'Inputs todays date
Range("ba58").Value = Date
ActiveSheet.Range("H52:CO402").Select
Selection.Copy
ChDir "R:\02. Common\0.6 Recall Rosters\Recall Roster"
Workbooks.Open FileName:= _
"R:\02. Common\0.6 Recall Rosters\Recall Roster\BETA-RecallRoster.xlsm"
ActiveWindow.SmallScroll Down:=-135
ActiveSheet.Unprotect Password:="Protection"
Windows("BETA-RecallRoster.xlsm").Activate
Range("B1").Activate
ActiveSheet.Paste


ActiveSheet.Protect Password:="Protection"
Sheets("Sheet2").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Answer 1

Cells.Delete将清除当前所选工作表的内容。