在VBA excel 2010上，我不斷收到運行時錯誤'1004'，其中範圍類的PasteSpecial方法失敗

Question

我不斷收到運行時錯誤'1004'，其中說我的範圍類的pastespecial方法失敗。我所要做的就是剪掉2個範圍並將它們粘貼到它旁邊的單元格中，這樣我就可以創建一個開放的空白範圍。由於某種原因，範圍類的pastespecial方法失敗了，我找不出原因。這是下面的代碼：

---

Sub ProductivityMacro() 

Dim rDelete As Range 

Dim rCut As Range 

Dim rPaste As Object 

Set rDelete = Range("A:A,C:D,F:J,M:BD") 

    rDelete.Delete (xlShiftToLeft) 

Set rCut = Range("C:D") 

    rCut.Cut 

Set rPaste = Range("E1") 

    rPaste.PasteSpecial xlPasteValues 
End Sub 

---

Answer 1

Sub ProductivityMacro() 

    Dim rDelete As Range 

    Dim rCut As Range 

    Dim rPaste As Object 

    Set rDelete = Range("A:A,C:D,F:J,M:BD") 

    rDelete.Delete (xlShiftToLeft) 

    Set rCut = Range("C:D") 

    rCut.Cut Range("E1") 

End Sub