My data should have 6 standard headers, but sometimes these are missing, can a VBA code loop, and insert blank lines, where these should be?

[lynch]

I was hoping someone would be genius enough to help with this, I would be very grateful.

In Colum C of my data (les that 50 rows)- there are usually 6 items for each record. These are:
BOOK
CA
OVER
SPEC
DIR
TOTAL

Sometimes, SPEC or DIR may be missing from a record- I would like a blank row inserted for these. Even better if the could be named SPEC and DIR. (Please see the results image)

Thanks for you help!

 

[Snakehips]

@lynch Try this.

Sub InsertHeeaders()

Dim LastR As Integer
Dim r As Integer

LastR = Range("C" & Rows.Count).End(xlUp).Row

If Not Range("C" & LastR) = "TOTAL" Then Exit Sub

Application.ScreenUpdating = False
r = LastR

Do While r > 3
    Select Case Range("C" & r)
        Case "TOTAL"
            If Not Range("C" & r - 1) = "DIR" Then
                Range("C" & r).EntireRow.Insert
                Range("C" & r) = "DIR"
            Else
            r = r - 1
             End If
         Case "DIR"
            If Not Range("C" & r - 1) = "SPEC" Then
                Range("C" & r).EntireRow.Insert
                Range("C" & r) = "SPEC"
            Else
                r = r - 1
            End If
         Case Else
         r = r - 1
    End Select
Loop

Application.ScreenUpdating = True
End Sub

Hope that helps.