Excel Sort Alphabetic Macro

Option Explicit


Sub Sort_Alphabetic()

    Range("A3:F100").Select
    ActiveWorkbook.Worksheets("Series").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Series").Sort.SortFields.Add Key:=ActiveCell. _
        Offset(0, 1).Range("A1:A36"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Series").Sort
        .SetRange Range("A3:F39")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub