Insert lines when x<> y

[Guest]

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

 

[Tom Ogilvy]

If your numbers are in Column E then:

Sub li()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastRow - 1 To 1 Step -1
If Cells(i + 1, 5).Value <> Cells(i, 5).Value Then
Cells(i + 1, 5).EntireRow.Insert
End If
Next
End Sub

 

[Tom Ogilvy]

correction:

Sub li()
Dim LastRow As Long
Dim i As Long
LastRow = Cells(Rows.Count, 5).End(xlUp).Row
For i = LastRow - 1 To 1 Step -1
If Cells(i + 1, 5).Value <> Cells(i, 5).Value Then
Cells(i + 1, 5).EntireRow.Insert
End If
Next
End Sub

Changed the LastRow line to look in column 5 as well.