Hi,

Right click the sheet tab, view cod and paste this in. Changer the column as
required

Sub sonic()
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For x = lastrow To 2 Step -1
If Cells(x, 1).Value < Cells(x - 1, 1).Value Then
Cells(x, 1).EntireRow.Insert
End If
Next
End Sub

Mike

"REGENT" wrote:

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