Code for selection of range by user

Hi,

I have following Code in a macro

Sub SORT()
'
' SORT Macro
' SORT BY MONTH
'

'
    Rows("47:61").Select
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Clear
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("H47:H61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("I47:I61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("J47:J61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("L47:L61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("M47:M61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT.SortFields.Add _
        Key:=Range("N47:N61"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(" Forecast by Region >$100k").SORT
        .SetRange Rows("47:61")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

In this currently the sort range and each collumn range is fixed but I would like to replace it by a user selectable range. What code I should insert.

thanks