dynamic vba code to delete duplicate headers, blank headers and blank columns

Hi All

Looking for a Dynamic vba code to delete duplicate headers,for blank headers (whether there is data in row 2 or not) blank columns with autofit columns.

However this is a sample format but should not depend on bold or not bold headers that is invoice another header reading invoiceone of them should be deleted as it will always contain same data in the columns

Thanks if any can assist

Take a look at the attachment to see if it'll do the trick. It utilizes the following procedure:

Please Login or Register  to view this content.

This should remove columns with duplicate or blank headers, then autofit the remaining columns. Give it a look:

Hi

It worked but slow on the actual data, on real data of 1000 rows, it takes time , however thank you for assistance

I'm glad I could help! I noticed that it was running a bit slowly on the practice set, as well. Deleting entire columns tends to be a slower operation, unfortunately. I hope it'll do!