Boa tarde efs2016,

Mude sua Macro classificar por essa:

Sub Classificar()

    Dim UltimaLinha As Double
    UltimaLinha = Sheets("Rel").Cells(Cells.Rows.Count, 6).End(xlUp).Row
    
    If UltimaLinha < 2 Then UltimaLinha = 2
    
    Sheets("Rel").Select
    
    Range("A6:F" & UltimaLinha).Select

    ActiveWorkbook.Worksheets("Rel").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rel").Sort.SortFields.Add Key:=Range("B6:B" & UltimaLinha), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Rel").Sort
        .SetRange Range("A6:F" & UltimaLinha)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

teste e de retorno.

att,

brunoxro...
Cara, você manja pra caramba!!! Passei a manhã tentando achar o erro e não consegui...
Deu certo!! Muito obrigado!!!

efs2016

Você deve marcar como Resolvido na resposta que resolveu a tua dúvida e não na tua pergunta.

Outra coisa, você não clicou na mãozinha para agradecer ao Bruno.

Acesse o link abaixo para saber como agir corretamente:

viewtopic.php?f=7&t=16757

Como você pulou a etapa de apresentação no fórum, deixou de tomar conhecimento das orientações que passamos lá:
Sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

[]s