Pessoal,
Uso a função abaixo para Classificar em Ordem Alfabética, filtrando os dados exclusivos.
Funciona, mas tá muito lento. Será que dá pra otimizar?

'Classifica Com Filtro de Exclusivos

Sub ClassificaAtivosCarteira()
Planilha9.Unprotect 
Planilha9.Activate

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
.DisplayAlerts = False
End With

Dim lin As Long
lin = 14 
Do While Not IsEmpty(Range("B" & lin)) And Not IsEmpty(Range("M" & lin))
    lin = lin + 1
    Range("DT14:DT1012").ClearContents
    Range("F14:F" & lin).Select
    Range("F13:F" & lin).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("DT13"), Unique:=True
    [DT13:DT1012].Sort Key1:=[DT13], Order1:=xlAscending
Loop
End Sub