На VBA excel 2010 я продолжаю получать ошибку времени выполнения «1004», где не удалось выполнить метод PasteSpecial класса диапазона

Question

Я продолжаю получать ошибку RunTime «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