delete duplicated columns from left to right

Hi,

I have a worksheet with data columns starting from column H to infinite (currently GV). Row 4 holds an unique ID which I want to be the basis for finding duplicates and then deleting the entire column. However, have to keep in mind that I only need to delete the double existing entry to the RIGHT of the respective column.

Example.
Data in column H is double existing in column T and column Z, when running the macro I need the macro to delete only columns T and Z.

I have been trying to go add a row with COUNTIF formulas to see if any entry in row 4 is double existing and then have the macro delete all columns that have a countif value above 1, but this is very sluggish and performance draining since i need to pull the formula across a hundred rows.

I was hoping the local excel gods could point me in a pure VBA solution for this problem

thanks,
A2k

Dear Holger,

this is genius stuff, works like a charm!

Vielen herzlichen Dank,

A2k