Delete content in column a + b + d + e + g......

[Varmark]

Hi,

I am looking for a VBA solution to delete the data in columns for an entire worksheet. Basically what i would like remaining is the formulas i have in every third column, plus the first row

Formula wise it could look something like this:

=OR(MOD(COLUMN(),3)=1,MOD(COLUMN(),3)=2)