You can do it with a macro:
Sub InsertRows
rowNumber = Cells(20000, 1).End(xlUp).Row
i = 3
Do While i <= rowNumber
If Cells(i, 1) < Cells(i - 1, 1) + 1 Then
Rows(i).Insert
Cells(i, 1) = Cells(i - 1, 1) + 1
rowNumber = rowNumber + 1
End If
i = i + 1
Loop
end sub


--
antoka05
------------------------------------------------------------------------
antoka05's Profile: http://www.excelforum.com/member.php...o&userid=29024
View this thread: http://www.excelforum.com/showthread...hreadid=487587