codice:
Sub copia()
On Error Resume Next
Dim selezione As Range
Set selezione = Application.InputBox(Prompt:="Seleziona intervallo", Title:="Mio range", Type:=8)
selezione.Copy Destination:=Sheets(2).Range("A1") 
Application.CutCopyMode = False
End Sub