You could use something like the following (albeit with a bit of error-trapping thrown in). The user would type in the range to copy in the first input box (eg A1:E27 oe Sheet1!A1:A20 etc) and where they want it to be pasted to in the second input box. HTH.
Public Sub CopyAndPaste()
Dim rngToCopy As Range
Dim rngToPaste As Range
Set rngToCopy = Application.InputBox("Enter range to copy", Type:=8)
Set rngToPaste = Application.InputBox("Enter range to paste", Type:=8)