Excel для Если не работает правильно один лист против других листов

Question

У меня есть этот цикл, который я обнаружил, который работал много раз в прошлом. Все, что он делает, это смотрит на предыдущую ячейку, и если значение в ячейке отличается от того, что вставит строку. Код ниже.

Dim lr As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = lr To 2 Step by - 1
    If Cells(i, 8).Value > Cells(i - 1, 8).Value Then
        Cells(i, 8).EntireRow.Insert
    End If
Next i
Application.ScreenUpdating = True
End Sub

То, что в данный момент делает для этого конкретного листа, это остановка после первой итерации и не продолжение цикла. Столбец, который ищет код, является последним (столбец 8), а первый столбец является просто списком для подсчета строк от 1 до «lr» (последняя строка).

Пример:

Оригинальный лист

После запуска макроса

Кто-нибудь знает, почему он останавливается после первой итерации?

Спасибо