Find match and Delete with VBA

Greetings,

I am attempting to find the contents in A1 in cells C1 through F1 and delete the duplicate contents. Example image below:


Using the image as reference, I would like a macro that would delete E1, D2 and D3

Capture.JPG


Thanks,

RB