Boa tarde!!

Me perdoa mas, eu não entendi!!!

Att

Por formula:
F6=INDIRETO(ENDEREÇO(3;CORRESP(V18;$A$1:$U$1;0))) e copie ou arraste para as demais

Boa tarde
Reinaldo, eu já havia feito por formulas (100% de aproveitamento) igualzinho a essa que você postou. Precisava mesmo era da solução por macro. Vou dá o tópico por resolvido.
Grato

Boa tarde!!
Tente

Sub AleVBAFormula()
With Range("F6")
.Formula = "=INDIRECT(ADDRESS(3,MATCH(V18,$A$1:$U$1,0)))"
.Copy
.PasteSpecial xlPasteValues
.Application.CutCopyMode = False
End With
End Sub

Por VBA

Sub substituir()
Dim uLin As Long, pLin As Long, pCol As Long, vPego As Long
    uLin = Sheets("Plan1").Cells(Cells.Rows.Count, "S").End(xlUp).Row
For pLin = 6 To uLin
    For pCol = 19 To 24
    vPego = Application.Match(Cells(pLin, pCol).Value, Range("A1:U1"), 0)
    Cells(pLin, pCol - 13) = Cells(3, vPego)
    Next
Next
End Sub

Opa
Agradeço ao alexandrevba e ao Reinaldo pela ajuda - macro e formulas - ficou certinho.