Boa noite,

Veja se este exemplo de código te ajuda:

Sub Classificar()
    [B6:J505].Sort Key1:=[B6], Order1:=xlAscending
    [AA6:AA505].Sort Key1:=[AA6], Order1:=xlAscending
    [AD6:AD505].Sort Key1:=[AD6], Order1:=xlAscending
End Sub

Abraço

Boa noite!!!!!!!!

Obrigado!!!!!!! ..ficou perfeito!!!!!!

Muito Obrigado!!!!!!!!!!!!

Att...