Hi,

It is also possible to do this via a PivotTable, however I think Mike's code
or a modification of it would be better:

Sub cutaneous()
Dim x As Long
Application.ScreenUpdating = False
For x = [A65536].End(xlUp).Row To 2 Step -1
If Cells(x, 1) < Cells(x - 1, 1) Then
Rows(x).EntireRow.Insert
End If
Next x
End Sub

Cheers,
Shane
"Mr. Low" wrote in message
...
Hello,

I have the folowing table:


1 Code Date Amount
2 L21 XXX XXXXX
3 L21
4 U54 <--- insert a row above when the code
chanes
5 Y63
6 Y63
7 Y63
8
1499 B16
1500 P58

Is there a way for me to insert a row automatically above it code changes
?

Thanks

Low
--
A36B58K641