Optimize Alphabetizing VBA Code

Good day,

Is there a more condensed, more efficient way to execute the alphabetizing a column in Excel? This is what I got from the VBA Recorder.

Sheets(2).Select
Sheets(2).Range("F2:F231").Select
    ActiveWorkbook.Worksheets("Sort & Label").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sort & Label").Sort.SortFields.Add Key:=Range("F2" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sort & Label").Sort
        .SetRange Range("F2:G231")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Thank you for your time and assistance