Insert Row At Each Change In Column

I am trying to achieve a row insert based on matching criteria. I need to check a column of text values, and each time the text value changes, copy cells (a1:c1) and insert copied selection to the row before text change.

I am only concerned with the text in the first column. For example, I have a column with sometext in each row, when the row changes to somenewtext, I want to copy the header information and insert into row before the text changed.

Header1|Header2|Header3|
sometext
sometext
sometext
somenewtext

Searching the forums, I found conditional page breaks [url] and tried to adapt the code, but have been unsuccessful in getting it to work for my needs. I have tried the following, but cant figure out how to insert the rows in the correct place. Here is what I tried.

Sub cln()
Dim myRange As Range
Dim rngCell As Range

With Worksheets("pendingRpt")
Set myRange = .Range(.Range("A1"), .Range("A65536").End(xlUp))
For Each rngCell In myRange
If rngCell.Text <> rngCell.Offset(1, 0).Text Then
rngCell.Select
With Selection.Interior
Range("A1:C1").Select
Selection.Copy
Selection.Insert shift:=xlDown
End With
End If
Next
End Sub