Help needed with VBA code to replace values with names and delete others Values

Thanks for this I'm going to give it a try a bit later. What I need to do is to repeat the same process until the end of Column A so I can carry out with my analysis. Thanks for your help, I presume this will repeat until it reaches end of column A