|Assuming January to December in columns 1 to 12, this code will create 4 copies of each monthly column, e.g. January in columns 1 to 4, February in columns 5 to 8, etc.|
If this is not what you are looking for, let us know.
'Loop to set variable for each month.
For mNum = 1 To 48 Step 4
'Loop to Copy/Insert 3 copies of Month Column
For wCol = mNum To mNum + 2
Columns(wCol + 1).Insert Shift:=xlToRight
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.