Macro or formula to find code and print codes

H,

I have set of names in the column and that contains Codes like ( C,P,CP,HC,RE etc). What I have to do is,I have to find a match for these codes and write or print full form of that codes in the separate columns.I have to create two extra columns Target profile and Vertical.
You can see the comments in the workbook.
Please help me on this.
Target Profile
For Example:
C: Customer
P: Prospects
CP: Customer & Prospects

Vertical
HC=Healthcare
RT=Retail
CV=Cross Vertical
SV=Cross Vertical
PS=Public Sector
MF=Manufacturing
S&D = S&D


Please suggest me with a Macro or Formula to find this code and write proper abbreviation in the next column.

I have attached my Work book.

Thanks!