I have a column of numbers as below:

1
1
1
2
2
2
3
3
........

I am writing a macro to insert lines between each didtinct number,
the code below isnt quite working - I am missing 1/2 lines somewhere,
thks in advance

Sub li()

Dim i
For i = 1 To 10
If Cells(i + 1, 5).Value < Cells(i, 5).Value Then
Cells(i + 1, 5).EntireRow.Insert
End If
Next


End Sub