macro to add columns after existing columns and copy/paste headers and formulas

Hi All!

I need some help with a macro I've been attempting and failing at. I have a workbook with more than a few worksheets that all are the same. I am needing to insert 6 columns between existing columns so that I can put formulas into these new columns. I've attached a sample workbook with two tabs to show what I'm doing currently and what I'm looking for the result to be (at least with respect to the additional columns) The rough start I have is this :

Please Login or Register  to view this content.

Am I going in the right direction or completely down a rabbit hole? thanks for all of the help! assistance is much appreciated! sample.xlsx

Ok, so I've changed tactics a bit from the above. Hopefully someone else will benefit from my trial and error. Unfortunately all of my sheets that contain columns have a different number of existing columns to insert the six new columns I need. My current tab looks like this

Date Column Time Column Column 1 Column 2 Column 3 etc.

I need to get to :

Date Column Time Column Column 1 Insert a Insert b Insert c Insert d Insert e Insert F Column 2 Insert a....etc .

Headers are easy, I can just set them equal to the first set of headers so if they change, it will change all of them. Is there an easier/cleaner way to do the code than this?

Please Login or Register  to view this content.