Adding 6 columns after each Column with a header

I am having some issues trying to insert 6 columns after each column with a header. I have tried several different VBA's and tried creating a macro, but the macro seems to fail after so many entries. I have attached an example. I would like to have it insert 6 columns starting with column "K" and continue to Column "S". Any help would be greatly appreciated. Thanks,