Delete Every Other Consecutive X Columns

[h1196844]

As title.

What is the fastest way to delete 2 consecutive columns after skipping 2 columns?
For eg: Column A Column B Column C Column D Column E Column F Column G Column H
I would like to keep column A & B, delete Column C & D, keep Column E & F and then delete Column G & H

I have a large dataset 4679 columns all together .... that is my code below it does what i want but i found it take a bit of time
For i = 4677 To 1 Step -3
Columns(i).Delete
Next i

For j = 3 To 4678 Step 1
Columns(j).Delete
Next j

[patel45]

Please Login or Register  to view this content.