Sub to Copy and Paste a Range of Cells

This should be really simple, but I keep getting error messages when I try to paste. Perhaps you can help?
I first want to select a range of cells with the mouse.
Then I want an ImputBox to ask me where to Paste to.
I select a cell with the mouse and press OK.
At this stage I get an error message, but I am not sure why?
I have tried each of the bits of code in remarks, but they all give an error message.
Please could you keep it simple and explain why mine does not work.

Sub Copy_And_Paste()
Dim CopyRange As Range
Dim PasteRange As Range

Set CopyRange = Selection

CopyRange.Select

  Selection.Copy

    Set PasteRange = Application.InputBox(prompt:="Select Where to Paste to", Type:=8)

Rem *** It works up to here ***
Rem *** I have tried the following ***
 
' PasteRange.Select

' CopyRange.Paste

' Selection.Paste

' Selection.PasteSpecial Paste:=xlValues
' Application.CutCopyMode = False

End Sub

This works for me.

Sub Copy_And_Paste()

    Dim CopyRange As Range
    Dim PasteRange As Range

    On Error Resume Next
    Set CopyRange = Selection
    Set PasteRange = Application.InputBox(prompt:="Select Where to Paste to", Type:=8)
    If Not PasteRange Is Nothing Then
        CopyRange.Copy PasteRange
    End If

End Sub