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.

Please Login or Register  to view this content.

This works for me.

Please Login or Register  to view this content.