Delete multiple columns based on value in first row

Hi all,

I have big table with many columns. From those columns I need to keep only several. The rest I need to delete. Can anyone help me with a macro which will delete all necessary columns.

The table I have is in sheet “Table”, columns A to ZZ. The number of rows can vary. Column names are in the first row (A1:ZZ1).
The list with all column names that I need to keep is in the sheet “Required columns”, range A1:A12.

Thank you in advance for your help.

Igor

Can you provide the list in Sheet "Required Columns" ?

Hi Sourabhg98,
The code works good, but I need to keep the columns that are in the list.
If there is column which is not in the list, then to delete it.
Thank you!
Igor

Hi JOHN H. DAVIS,
The list is not fixed. It can change over time. Please use the example that Sourabhg98 shared.
Igor

Maybe:

Please Login or Register  to view this content.

Depending on your Sheet's formatting.

your code did not worked fully. I've made some changes. Its little messy, but it works.

Thank you JOHN H. DAVIS and Sourabhg98 for your help.

Please Login or Register  to view this content.