try this idea

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


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"leovh" wrote in message
...
Hello



I have a sorted alphanumeric array with names and want to introduce a
blanc line each time that the name changes. Merci for help.