excel – Insert user defined range into another worksheet

You declared Dim rng As Range so is already a range in a specific sheet therefore Range(rng) doesn’t work, because Range() awaits an address as parameter (not a range).

Also if you use the .Copy syntax in one line (with destination as parameter) you don’t need to .Paste.

It should be

rng.Copy Worksheets("sheet destination").Range("A1")

Also using Goto (outside an error handing) is a very bad practice. Instead use something like that:

Sub AskMe()
    Dim Rng As Range

    Do
        On Error Resume Next 'next line throws error if user presses cancel so we hide **all** error messages now (and turn them on later!)
        Set Rng = Application.InputBox("Please choose a range", "Obtain Range Object", Type:=8)
        If Err.Number <> 0 Then Exit Sub 'if an error occurred then the user pressed cancel (so we exit)
        On Error GoTo 0 'always re-activate error reporting! Otherwise all error messages stay hidden.
    Loop Until MsgBox("Your choice " & Rng.Address & " ?", vbYesNo, "Confirm") = vbYes
    'repeat asking for a range until yes is pressed

    Rng.Copy Worksheets("sheet destination").Range("A1")
End Sub

To copy the range you could do it as follows:

Sub foo()
Dim rng As Range
retry:
Set rng = Application.InputBox("Please choose a range", "Obtain Range Object", Type:=8)
    If MsgBox("Your choice " & rng.Address & " ?", vbYesNo, "Confirm") = vbYes Then
        GoTo continue:
    Else
        GoTo retry:
    End If
continue:
rng.Copy 
Worksheets("Sheet2").Range("A1").PasteSpecial xlPasteAll
End Sub