macro sorting - change range each time

[schalupny]

Can I create a macro to sort a range of what I select. It would be different rows each sort.
Here is the code I created, I tried changing the range to "Selection" but it's not working.

Sub sort()
'
' sort Macro
' sort
'
' Keyboard Shortcut: Ctrl+n
'
ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Add Key:=Range("B18:B21") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").sort
.SetRange Range("A18:F21")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Tinbendr]

This seems to work.

Sub sort()
 '
 ' sort Macro
 ' sort
 '
 ' Keyboard Shortcut: Ctrl+n
 
 '
 
 If Selection.Rows.Count > 1 Then
    ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").sort.SortFields.Add Key:=Selection _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").sort
    .SetRange Selection ' Range("A18:F21")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
    End With
End If
 End Sub