La macro non batte ciclio perchè l'hai associata a ThisWorkbook, mentre devi associarla al foglio piantina. Fai doppio click su di esso e incolla la macro lì.

Vedrai che le celle della colonna N. testata assumeranno il colore, anche se non coincidono con quelli della legenda. Per quello puoi risolvere da solo visto che ti avevo già linkato anche la palette dei colori.

Per le testate

Range("BI77,BI58").Interior.ColorIndex = Range("bV93").Interior.ColorIndex

deve diventare


Range("BI77,BI58").Interior.ColorIndex = Range("bt93").Interior.ColorIndex