Почему шаг (-1) выдает ошибку, определяемую приложением или объектом, но не шаг (-2)

Итак, у меня есть код, который зацикливается и считает 1, если есть определенный статус с соответствующей датой. Обычно формат выглядит следующим образом: статус, дата, статус, дата, статус, дата и т. д.

Однако мой набор данных изменился и стал статусом, датой, человеком, статусом, датой, человеком, статусом, датой, человеком и т. д.

Раньше я использовал шаг (-2) как, но теперь, когда я перехожу на шаг (-1) или даже шаг (-3), это дает мне ошибку, определяемую приложением или объектом.

Кто-нибудь знает, почему это так?

Sub CheckDates()


Dim count As Integer
Dim i As Integer
Dim j As Integer


Sheets(1).Select

lastrow = ActiveSheet.Cells(Rows.count, "B").End(xlUp).Row

'have to keep data in a table for this to actually work as it ctrls+left to the table, which will end where the very last text of any row is
lastColumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column


count = 0
i = 2
j = lastColumn

For i = 2 To lastrow
For j = lastColumn To 1 Step (-1)
If Sheet1.Cells(i, j) < Sheet2.Cells(1, 1) And Sheet1.Cells(i, j - 1) = "Reçu" Then
    count = count + 1
    GoTo NextIteration
End If
Next j
NextIteration:
Next i

Sheet2.Cells(1, 7) = count

Sheets(2).Select

Call DeleteSAC
'Runs the DeleteSAC Macro


End Sub