Botão de organizar planilha de AZ ou ZA

Já se deparou com planilhas desorganizadas onde a filtragem padrão do Excel não foi o suficiente? Vou te ensinar como estar criando um botão simples para re-organização da planilha de A a Z ou de Z a A.

Sub Organizar_AZ()
'
' Organizar_AZ Macro
'

'
    Range("A2").Select
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Add2 Key:=Range( _
        "A2:A107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("E-MAILS ").Sort
        .SetRange Range("A3:C107")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Organizar_ZA()
'
' Organizar_ZA Macro
'

'
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Add2 Key:=Range( _
        "A2:A107"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("E-MAILS ").Sort
        .SetRange Range("A3:C107")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub