Cut and Paste with User Defined Ranges in a macro

I am very new to VBA and I have done a lot of research to try and figure this out....but I am stumped and hope I can get some help. I want to cut a user-defined range from Column Q and paste to the same rows in Column O (same workbook). The range changes depending on which worksheet I am using. Here is what I have tried -- but its not working.

Sub Macro4()
'
' Macro4 Macro
' Cut A Section of Col Q and Move to Col O
'
' Keyboard Shortcut: Ctrl+u
'
Dim Workbook As Workbook
Dim QRange As Range
Dim ORange As Range
Set Workbook = ActiveWorkbook
Set QRange = Application.InputBox(prompt:= _
"Select Range", Type:=8)
QRange.Select
ActiveWorkbook.Worksheets("Sheet1").Range.Selection.Cut
Set ORange = Application.InputBox(prompt:= _
"Select Range", Type:=8)
ActiveWorkbook.Worksheets("Sheet1").Range.Selection.Paste
End Sub

Any help I can get would be appreciated!

Thank you so much! This worked great!