Option Explicit

Sub SortAlphabeticalA()
    Range("A3:A1000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo
End Sub

Sub SortAlphabeticalB()
    Range("B3:B1000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo
End Sub

Sub SortAlphabeticalADwn()
    Range("A3:A1000").Sort Key1:=Range("A3"), Order1:=xlDescending, Header:=xlNo
End Sub

Sub SortAlphabeticalBDwn()
    Range("B3:B1000").Sort Key1:=Range("B3"), Order1:=xlDescending, Header:=xlNo
End Sub