我在这里要做的是取一个给定的单元格，复制它的值，并在将它的值粘贴到新插入的单元格后删除该单元格。用户输入要删除的单元格和要插入新单元格的单元格。
下面是我的代码：

Sub Test() 
   Dim rngDeleteCell As Range
   Dim rngInsertCell As Range
   
   On Error Resume Next
   Set rngDeleteCell = Application. InputBox( _
          "Select the cell to delete", _
          Type:=8)
   If rngDeleteCell Is Nothing Then Exit Sub
   Set rngInsertCell = Application. InputBox( _
          "Select the cell to insert the new cell upon", _
          Type:=8)
   If rngInsertCell Is Nothing Then Exit Sub 

On Error GoTo 0

With ThisWorkbook.Sheets("Sheet1") 
 .Range(rngInsertCell).Insert xlShiftDown
 .Range(rngDeleteCell).Copy Destination:=Range(rngInsertCell) 
 .Range(rngDeleteCell).Delete Shift:=xlShiftUp
End With
End Sub

但是，当我运行代码时，我收到运行时错误：“1004”：应用程序定义或对象定义的错误。