Boa tarde!!

Eu não entendi muito bem.

Consegue adaptar os códigos abaixo

'http://office.microsoft.com/en-us/excel-help/sort-data-in-a-range-or-table-HP010073947.aspx#BMsort_by_a_custom_list
Sub Tente()
    Columns("SuaColuna").Select
    Selection.Sort Key1:=Range("SeuCabeçalho"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
   
End Sub
Private Sub Worksheet_Activate()
    Range("A10", Range("R65536").End(xlUp).Address).Select
    Selection.Sort Key1:=Range("R10"), Order1:=xlDescending _
    , Key2:=Range("?????"), Order2:=xlDescending _
    , Key3:=Range("?????"), Order3:=xlDescending

End Sub

Em R11:

=SE(P11="Baixado";SEERRO(ÍNDICE('Cadastro de Rifas'!$A$3:$A$974;CONT.SE($P$10:P11;"baixado"));"");"")

Arraste.

Oi bom dia,

Obrigado alexandrevba e mandrix, consegui com este ultimo código, valeu