Este fórum está sendo desativado

[Enivaldo]

Estou a elaborar uma planilha com três colunas, sendo que a coluna A é a sequência numérica, que é preenchida automaticamente quando digito o nome de pessoas na coluna. Usei a seguinte função:=SE(B9="";"";(LIN(A9)-8)) . Esta parte está resolvida. OK!

A coluna B é a coluna dos nomes dos candidatos e que é à medida que vou digitando os nomes eles vão se organizando automaticamente em ordem alfabética. Consegui com da Macro abaixo elaborada pela Karine Lago, fiz a adaptações necessárias para minha necessidade em minha planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Worksheets(1).Ran­ge("a1:d500"), Target) Is Nothing) Then
Classificar
End If
End Sub

Private Sub Classificar()
Worksheets(1).Range("a2:d500").Sort Key1:=Worksheets(1).Range("d2"), Order1:=xlDescending, _
Key2:=Worksheets(1).Range("a2"), Order1:=x1Ascending

End Sub

Na coluna "C" será digitado O MOTIVO DA DESCLASSIFICAÇÃO do candidato. E é neste caso que está minha dificuldade, pois o motivo deve seguir o nome do candidato para quaisquer posição da ordem alfabética, da coluna B.
Não estou conseguindo resolver este problema.
Tem alguma fórmula ou macro ou função, que eu possa fazer isso?

[babdallas]

Anexe um exemplo, por favor.