Experimente:

Sub ClassificarOrdemAlfabeticav2()
 Dim LR As Long
' ClassificarOrdemAlfabetica Macro
    LR = Cells(Rows.Count, 1).End(3).Row
    With ActiveSheet.Sort
     .SortFields.Clear
     .SortFields.Add Key:=Range("B10:B" & LR), SortOn:=xlSortOnValues, Order:=xlAscending
     .SetRange Range("A10:AG" & LR)
     .Header = xlNo
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
    End With
    Range("A9").Select
End Sub

Olá Osvaldo
Muito bom...era isso mesmo que procurava...
Só uma dúvida: quando você descreve = "LR = Cells(Rows.Count, 1).End(3).Row"
como posso compreender o numero 3 do End(3).Row?

Favor completar a última mensagem. Está incompreensível.

Isso é para identificar a ultima linha com dados.

É o mesmo que .............End(Xlup).row

Boa tarde.
Tópico postado aqui também

https://www.gurudoexcel.com/forum/viewtopic.php?f=12&t=6005

Obrigado MPrudencio
Não sabia dessa alternativa..

Grato,
Marcelo Adriano