How to insert header row with every change in value in a column

Hello,

I have to insert header row whenever there is a change in value in column A. I have more than 1000 records and it is very time taking activity to insert header row manually.
Sample data sheet has been attached. please help.

Once i get these header inserted then I will use each table with header for sending letters to customers with these details.

FWIW:

Sub sayedzada()
Dim i As Long
For i = Range("A" & Rows.count).End(3).Row To 2 Step -1
    If Left(Range("A" & i), 3) = "Cus" Then Rows(i).Delete
Next i
For i = Range("A" & Rows.count).End(3).Row To 2 Step -1
    If Range("A" & i) <> Range("A" & i + 1) Then
        Rows(i + 1).Insert
        Rows(1).Copy Rows(i + 1)
    End If
Next i
Range("A" & Rows.count).End(3).EntireRow.Delete
End Sub

Wow..... it is exactly what i want. thanks alot.

You're welcome. Glad to help out and thanks for the feedback. Please mark this thread as solved.