macro needed to include particular columns out of so many columns in a sheet

Hi to all,
I have file with so many columns and i want to keep only columns i want.
Data
gen red yellow green white blue
1 aa gg tt cc bb
2 aa gg tt cc bb
3 aa gg tt cc bb
4 aa gg tt cc bb
5 aa gg tt cc bb

expected
gen red white
1 aa cc
2 aa cc
3 aa cc
4 aa cc
5 aa cc

for example here i want to keep only gen, red and white columns only out of columns what i have in my data. I have so many columns in my original data but here i given just small example. can any one help me how to proceed with macro or any other way because removing manually taking long time for me. Any help would be highly appreciated
Thanks in advance
Regards,
Genetist

Is this what you mean?

Please Login or Register  to view this content.

Dear Jolivanes,

Thank you very much for your reply and your code working fine,but here i have to repeat if statement for several times (800 times)
is there anyway to include names of all my columns to delete in one shot instead of writing IF multiple times.
Thanks lot
regards,
genetist

One way would be to list all the Column names to delete in a helper sheet.

Please Login or Register  to view this content.

Here the list is in Sheets("Helper") Column A.

Or you could copy the columns you want to keep into a temp sheet and clear the sheet you copied the columns from.
You can then copy the saved columns back into the sheet and delete the temp sheet.
I guess it all depends on how many columns you want to save and how many you want to delete.

See if this works. Try on a copy of your workbook.
Change the Sheet reference (here Sheet2) as required

Please Login or Register  to view this content.

Let us know if either John H Davis' code or this code works for you

if you've only got a relatively few columns to keep (or delete), you can also try something on the following lines.
If you've got lots to keep (or delete) then you can input the ones to keep/delete in a file, helper sheet, or other, rather than through an array.

Please Login or Register  to view this content.