Use macro to insert new column after every 4th column

[crawftw]

Hello,
I realize that this is probably a topic that has been discussed before, but I couldn't find an answer that worked for me from prior topics.

I have an excel spreadsheet with a large amount of employee data. About 150 employees are listed across the columns along the top, with four columns of information for each employee. I need to insert a 5th column after the original four for each employee, and I realize that the easiest, most efficient way to do this would be by way of a macro. I'm not good with all of the programing/code, and when I try to use the "record" feature in 07, it is simply inserting a new column in the same place every time.

Specifically, I have inserted a new column after the 4th cell of employee#16 and it is column CE. Starting there, I click record, select column CJ, and then click insert. The macro that recorded is as follows:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+z
'
Columns("CJ:CJ").Select
Selection.Insert Shift:=xlToRight
End Sub

Obviously this is not the correct macro. Does anyone know how I can do this?

 

[MickG]

Try this:-

Dim Last As Integer, Ac As Integer
Last = Cells("1", Columns.Count).End(xlToLeft).Column
    For Ac = Last To 1 Step -4
        Columns(Ac).Offset(, -3).EntireColumn.Insert
    Next Ac

Mick