VBA Inputbox

I attached a small example of what im trying to do here but bear with me im just getting started in VBA... Macro2 is suppose to copy the specified range at the start of the macro then the user is suppose to point to the destination where they want it pasted with the inputbox... as you can see when you run this macro it's not quite working... just wondering if anyone could amend it for me and maybe briefly explain where im going wrong if its not too time consuming??

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 9/26/2008 by ron.bond
'
' Keyboard Shortcut: Ctrl+Shift+W
'
    Range("A2:B34").Select
    Selection.Copy
    Set rng = Application.InputBox(prompt:="Select Range or Starting Point", Title:="Output", Type:=8)
    rng.Select
    ActiveSheet.Paste
End Sub