VBA to insert column based on some category

[arun198322654]

Hi Everyone

I have one situation where i had to insert column in my table bases one category.

In row b, there are two company code GB00 and GB40, I need to insert column after each GB40 column. Can any one help me with VBA code. I had attached the file which will explain it better. Please have a look and help me.

Thanks in advance.

 

[AlanSidman]

Option Explicit

Sub nsertgb40()
    Dim lc As Long
    Dim i As Long
    lc = Cells(6, Columns.Count).End(xlToLeft).Column
    For i = lc To 1 Step -1
        If Cells(6, i) = "GB40" Then
            Cells(6, i + 1).EntireColumn.Insert
        End If
    Next i

End Sub