Formulário Excel com organização por letra automático

Este tutorial visa orientar em como criar um Formulário Excel com organização por letra automático.

Gera um formulário automático do Excel de acordo com dados da planilha, e ao inputar novos dados ele organiza de A a Z e inputa a data da atualização automaticamente na célula indicada.

Sub Formulario()
'
    ActiveSheet.ShowDataForm
    Range("A2").Select
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("E-MAILS ").Sort.SortFields.Add2 Key:=Range( _
        "A2:A106"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("E-MAILS ").Sort
        .SetRange Range("A3:C106")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    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:C300")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    With Range("E3")
    .Value = Date
    .NumberFormat = "dd/mm/yyyy"
    End With
End Sub