Olá pessoal,

Encontrei a função Sub DoSort() na net e é uma mão na roda
ela classifica automaticamente um intervalo pre determidado de uma planilha, ou seja no intervalo a1 até a500, caso algo seja acrescentado ou mudado ela coloca em ordem alfabetica.

estou usando esta função:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Worksheets(1).Ran­ge("a2:a500"), Target) Is Nothing) Then
DoSort
End If
End Sub

Private Sub DoSort()
Worksheets(1).Range("a2:a500").Sort Key1:=Worksheets(1).Range("a2"), Order1:=xlDescending

End Sub

O problema é que ela esta classificando ao contrario de Z a A.
Ajuda ai planilhando... segue anexo para melhor visualização.