Geroeane,
Boa noite ! Tudo bem ?

Seria interessante se disponibilizasse uma planilha ZIPADA aqui no fórum.

Segue em anexo, ja procurei em todos lugares deve ser uma coisa simples....
ao acionar o botão classificar... dados ficam no inicio vazio no meio e texto final...

geroeane,
Boa noite !

Deixa eu entender , você quer que o nome venha junto com a classificação é isso ?

Boa noite!1

Não sei se entendi bem mas, tente isto.

Sub Macro1()
'
'
    Range("A1:G500").Select
    Selection.Sort Key1:=Range("F1"), Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End Sub

geroeane ,

Vc pode solucionar seu problema modificando a cor dos dados na coluna F depois só classificar por COR.

Veja se atende com gravação de MACROS ?

BAIXE:

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

Abrs,

Robert, genial a solução, valeu mesmo tava quebrando a cabeça.....

Fico contente em ter te ajudado.

Já que a resposta foi útil, NÃO ESQUEÇA DE CLICAR NA MÃOZINHA LADO SUPERIOR DIREITO.

Dê seu tópico como resolvido.

Abrs.