Wait a sec... Here it is! Thank you Arviragus. All I really had to do was change those last few lines of your code. Perhaps you erroneously assumed that I was smart enough to see this... Oh well!
Here it is with the change:
Sub Cut_Paste()
Dim source As Range, dest As Range
r1:
On Error Resume Next
Application.DisplayAlerts = False
Set source = Application.InputBox("Enter or select a range", Type:=8)
Application.DisplayAlerts = True
On Error GoTo 0
If source Is Nothing Then
MsgBox "No range entered or selected"
End
ElseIf source.Areas.Count <> 1 Then
MsgBox "You must select one contiguous range only"
Set source = Nothing
GoTo r1
End If
r2:
On Error Resume Next
Application.DisplayAlerts = False
Set dest = Application.InputBox("Enter or select one cell", Type:=8)
Application.DisplayAlerts = True
On Error GoTo 0
If dest Is Nothing Then
MsgBox "No range entered or selected"
End
ElseIf dest.Cells.Count <> 1 Then
MsgBox "You must select one cell only"
Set dest = Nothing
GoTo r2
End If
source.Copy
dest.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
source.ClearContents
End Sub
Thank all of you for your help