How to select and delete every 3rd column

Question

I have a set of data where every third column is the same. I want to leave only the first column and other which are the same must be deleted.

At first I tried this

Answer 1

You can go backwards like this. Also, you don't need to select the column before deleting, you can simply delete it right away.

For i = ((LastColumn \ 4) * 4) To 4 Step -4
   ws.Columns(i).Delete Shift:=xlToLeft
Next i