Insert Cells / match columns

[djt100]

Is there a way i can automatically insert cells to match the columns contents.

below is what I'm try to achieve. hope you can help!...

http://www.djt100.co.uk/before.html


http://www.djt100.co.uk/after.html

 

[Legacy 14611]

If you're happy with VBA code, maybe this:

Sub trythis()
Dim n As Long, a, i As Long
n = Cells(Rows.Count, 1).End(xlUp).Row
Set a = Range("A1:I" & n)
For i = 3 To n
    If Left(a(i, "e"), 2) = Left(a(i - 1, "e"), 2) Then
        a(i, "g").Resize(1, 3).Insert xlDown
    End If
Next i
End Sub