Copy, insert and delete a given cell

What I want to do here is taking a given cell, copying its value and deleting the cell after pasting its value to the newly inserted cell. User gives input about which cell to delete and which cell to insert the new cell upon.

Here is my code:

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

However, when I run the code I receive Run-time error:'1004': Application-defined or object-defined error.

Not sure this is the desired effect you had in mind, seems a bit odd shifting all the values up like that:

The values get shifted upwards with an empty space keeping the values below it where they were..

Your code adjusted used:

Sub TestInsertDelete()
   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

 rngInsertCell.Insert xlShiftDown
 rngDeleteCell.Copy Destination:=rngInsertCell
 rngDeleteCell.Delete Shift:=xlShiftUp
End Sub

If this weird result is what you were going for, then good(?), if not, please clarify how it was meant to be. If Ike wants credit for clarifying the .Range(xx) I don't mind

I achieved my goal by adapting Notus_Panda's code. To be more clear, I wanted to switch the cell values in an iterative database. Column number is adjustable.

<!-- begin snippet: js hide: false console: true babel: false -->

<!-- language: lang-html -->

Sub TestInsertDelete()
   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

 rngInsertCell.Insert xlShiftDown
 Cells(rngInsertCell.Row - 1, 2).Value = rngDeleteCell.Value
 rngDeleteCell.ClearContents
 rngDeleteCell.Value = Cells(rngInsertCell.Row, 2).Value
 rngInsertCell.Delete Shift:=xlShiftUp
 
End Sub

<!-- end snippet -->