Snasui Excel Forum

Code: Select all

Sub Macro6()
' Macro6 Macro
    Range("A2:M21").Select
    ActiveWorkbook.Worksheets("After ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("After ").Sort.SortFields.Add Key:=Range("M2:M21") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("After ").Sort
        .SetRange Range("A2:M21")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Code: Select all

Sub Macro6()
' Macro6 Macro
    Range("A2:M21").Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("M2:M21") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A2:M21")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub