Sub test()
For n = Cells(1, Columns.Count).End(xlToLeft).Column To 3 Step -1
If Left(Cells(1, n), 10) Like "AAA BB* 00" And Left(Cells(1, n - 1), 10) Like "AAA BB* 00" And Left(Cells(1, n), 11) = Left(Cells(1, n - 1), 11) Then
Columns(n + 1).Insert Shift:=xlShiftToRight
End If
Next
End Sub