Primeiro, coloque os cabeçalhos das colunas na linha 1 como:
Emseguida,executeestamacrocurta:
SubFillColumns()DimiAsLong,NAsLong,MAsLongDimrAsRange,vAsStringN=Cells(Rows.Count,"A").End(xlUp).Row
For i = 2 To N
v = Cells(i, "A").Value
Set r = Range("A1").EntireRow.Find(After:=Range("C1"), What:=v)
c = r.Column
M = Cells(Rows.Count, c).End(xlUp).Row + 1
Cells(M, c).Value = Cells(i, 2).Value
Next i
End Sub
Para produzir:
A macro não requer que a coluna A ou B seja classificada.