VBA coding for inserting column based on pervious cell

[little0ne]

Hi,

I can seem to figure out how to insert a column after a Certain cell value in row 2.

So

Apr May
2011 2012 2013 2011 2012 2013
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 2
0 0 0 0 0 0
0 0 0 10 14 0
0 5 0 10 4 3
0 0 0 0 0 0
So I would like the column always pasted after 2013?

Please help

[JOHN H. DAVIS]

Maybe:

Sub littleOne()
Dim i As Long
For i = ActiveSheet.UsedRange.Columns.count + 1 To 2 Step -1
    If Cells(2, i).Previous = "2013" Then Cells(2, i).EntireColumn.Insert
Next i
End Sub