Vba - insert two columns after each occurrence of dept name

[aattwod]

I need help with simple VBA Code. I have a SAP BW Excel Extract. In Row 3 there are are column headers of ten Depts. Each Dept's name occurs four times. I want to find the last occurrence of each Dept's name and insert two blank columns for each Dept. All the first blank column's header must be "Reasons for Variance" and the second must be "Corrective Action". Can someone help please.

 

[Peter_SSs]

Just use the _v3 code and try adjusting the red numbers below. Certainly the last one should be -6 but see if you can determine the other changes required.

For c = Cells(3, Columns.Count).End(xlToLeft).Column + 1 To 8 Step -7