excel-VBA 复制和粘贴不断吐出应用程序/对象错误

我有几行简单的代码应该将一段数据粘贴到我在 Sheet2 中选择的单元格中：

Sub asdf()

    Sheets("Sheet1").Range("A1:D5").Copy

    Worksheets("Sheet2").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

End Sub

这只会给我应用程序或对象定义的错误。

注意：我也尝试使用 ActiveCell ，这会导致：

奇怪的是它事先就起作用了。也许是因为保存问题？