Record Macro for Custom Sort not Working as I need...

[LeoThe Lion]

Hello every one,
I have recorded a macro (gave a shortcut key "Ctrl+q") for custom Sort by column "F" and Sort order "From Smallest to Largest", I selected 6 columns and 5 rows ("F4:F10"), and stopped this Macro.

Sub Custom_Sort()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Add Key:=Range("F4:F10"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("print").Sort
        .SetRange Range("A4:F10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Now the problem is when I select different range and apply this macro but this is not working on my new selected range. I want this type of Sort to other selected range too, I have more than 2000 rows and want to select different range every time which is column "A" to "F" and different rows numbers(6 or 7 0r 8).
If anybody knows how to do that I'll be thankful for that.
Thanks.

[arlu1201]

So will you be selecting the range and then running the sort macro?

[LeoThe Lion]

So will you be selecting the range and then running the sort macro?

Yes I select the range which I want to sort next then I apply macro which I recorded.

[arlu1201]

Try this

Sub Custom_Sort()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Add Key:=Range("F" & Selection.Row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("print").Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[LeoThe Lion]

Try this

Sub Custom_Sort()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("print").Sort.SortFields.Add Key:=Range("F" & Selection.Row), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("print").Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Hi Arlu1201,
Yes this is working good as I need, Thanks for your good help.
You saved my time.
Thanks again.