This should do it. Please do not indicate desperate in your post. All get
the same priority.

Sub addrowifchange()
mc = "a"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
If Cells(i - 1, mc) < Cells(i, mc) Then Rows(i).Insert
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"REGENT" wrote in message
...
What function can I use to add a row to a large spreadsheet at each change
in
a value of a specified column

Desperate - the manual process is overwhelming.
--
REGENT