如题，在vba操作如下代码
Sub a()
With Worksheets("Sheet1")
    .Range("C1:C5").Cut
    .Range("D1:D5").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd
End With

   
End Sub

出现错误，是什么原因？？？

剪切前要先 选择