Cut and paste Shape

[errtu]

I get run-time error 1004 The specified name wasn't found.

Private Sub CommandButton1_Click()
Dim R As Long
R = ThisWorkbook.Sheets("Receipt").Cells(65000, 1).End(xlUp).Row + 1
With Worksheets("Receipt").Shapes("ReceiptFoot")
        .Cut Destination:=Range("R")
End With
End Sub