sorting the selected cells

[baha17]

Hello Everyone,

I would like to create a macro on excel 2013 which sorts the selected cells. But I could not figure out how to set the key as the first column of the selected range. Just give you a clue I altered the recorded macro as below but, as you can guess the part

Key:= _
        Range("B461:B474")

should be the first column of my selected range.

thanks fort the help in advance
have a great day/night

Cheers
Baha

Sub Sort2()
    ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort.SortFields.Add Key:= _
        Range("B461:B474"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[baha17]

Hello Everyone,

I altered my code as

Sub Sort2()
Dim cell As Range, MergeVal$
Dim TR&, BR&, LC%, RC%
With Selection
TR = .Row
BR = .Rows.Count + .Row - 1
LC = .Column
RC = .Columns.Count + .Column - 1
Set cel = ActiveSheet.Cells(TR, LC)
Set cel2 = ActiveSheet.Cells(BR, LC)
    ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort.SortFields.Add Key:= _
        Range(cel.Address & ":" & cel2.Address), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
End With
    With ActiveWorkbook.Worksheets("ShiftAssignments (2)").Sort
        .SetRange Selection
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

and it works fine.
I post this in case someone needs.