Hi

Try the following macro

Sub insertblankrows()
Dim i As Long, lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 2 Step -1
If Cells(i, 1) < Cells(i - 1, 1) Then
Rows(i).Insert
i = i - 1
End If
Next i
End Sub


Copy the Code above
Alt+F11 to invoke the VB Editor
InsertModule
Paste code into white pane that appears
Alt+F11 to return to Excel

To use
Select sheet containing the PT's
Highlight the macro name
Run


--
Regards
Roger Govier

"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