Caro Leocases, Bom Dia.

Se você conseguiu ordenar os seus valores mesmo tendo eles valores repetidos entre sí, você adotou algum critério de desempate não é?
Utilize então o mesmo critério para gerar a chave de pesquisa única do PROCV.

Agora, sem ver a planilha é quase impossível conseguir ajudar você de maneira efetiva.

Salve a sua planilha am algum site gratuito, ex.: http://www.4shared.com e disponibilize o link aquí.
Tenho certeza que sua dúvida será resolvida logo.

Ficamos aguardando o link da planilha.

Boa noite!!

leocases, poste um arquivo COMPACTADO!!!
Tente...
Alt + F11 depois, Alt + I + M, e cole dentro do modulo.

Function PROCVMÚLTIPLO(NomePesquisa As String, IntervaloPesquisa As Range, IntervaloRetorno As Range) As String
Dim Valor, Nome
Dim k As Integer
Application.Volatile
    k = 1
    For Each Nome In IntervaloPesquisa
        If Nome = NomePesquisa Then
        Valor = IntervaloRetorno(k, 1)
        PROCVMÚLTIPLO = PROCVMÚLTIPLO & Valor & "; "
        End If
        k = k + 1
    Next Nome
    PROCVMÚLTIPLO = Left(PROCVMÚLTIPLO, Len(PROCVMÚLTIPLO) - 2)
End Function