Цикл перестает работать через некоторое время!

Private Sub FromDataRowToOrdersList(dataRow As Object)
    Dim recId As String
    Dim i As Long
    recId = dataRow.Item("I_RID")
    i = 0
    Dim isFoundRecId As Boolean
    isFoundRecId = False
    Do While ((isFoundRecId = False) And (i < counterOfRows))
        If (ordersList(0, i) <> recId) Then
            i = i + 1
        Else
            isFoundRecId = True
        End If
    Loop
    
    If isFoundRecId Then
        'îáíîâëÿåì ñóùåñòâóþùóþ çàïèñü
        If dataRow.Item("I_ORDER_CONDITION") > 0 Then
            ordersList(1, i) = dataRow.Item("I_ORDER_CONDITION")
        End If
        If dataRow.Item("I_SHORTNAME") > 0 Then
            ordersList(2, i) = dataRow.Item("I_SHORTNAME")
        End If
        If dataRow.Item("I_DIRECTION") > 0 Then
            ordersList(3, i) = dataRow.Item("I_DIRECTION")
        End If
        If dataRow.Item("I_PRICE") > 0 Then
            ordersList(4, i) = dataRow.Item("I_PRICE")
        End If
        If dataRow.Item("I_PRICESIZE") > 0 Then
            ordersList(5, i) = dataRow.Item("I_PRICESIZE")
        End If
        If dataRow.Item("I_REMAINDER_SIZE") > 0 Then
            ordersList(6, i) = dataRow.Item("I_REMAINDER_SIZE")
        End If
        If dataRow.Item("I_TIME") > 0 Then
            ordersList(7, i) = dataRow.Item("I_TIME")
        End If
        If dataRow.Item("I_DATE") > 0 Then
            ordersList(8, i) = dataRow.Item("I_DATE")
        End If
        If dataRow.Item("I_ORDER_CODE") > 0 Then
            ordersList(9, i) = dataRow.Item("I_ORDER_CODE")
        End If
        If dataRow.Item("I_ORDERREF") > 0 Then
            ordersList(10, i) = dataRow.Item("I_ORDERREF")
        End If
        If isRobotEnable = True Then
        If (ordersList(1, i) = 14 And (ordersList(3, i) = 4 And ordersList(3, i) = 3)) Then
        Call CommandButton12_Click
        End If
        If (ordersList(1, i) = 14 And (ordersList(3, i) = 4 Or ordersList(3, i) = 3)) Then
        ThisWorkbook.Sheets("Ðîáîò").Cells(38, 2) = 14
        ...........
        Else
        ThisWorkbook.Sheets("Ðîáîò").Cells(38, 2) = Null
        ThisWorkbook.Sheets("Ðîáîò").Cells(40, 2) = Null
        ThisWorkbook.Sheets("Ðîáîò").Cells(41, 2) = Null
        End If
        Call Logic(2)
        End If
    Else
        'äîáàâëÿåì íîâóþ çàïèñü
        ReDim Preserve ordersList(11, counterOfRows + 1)
        ordersList(0, counterOfRows) = dataRow.Item("I_RID")
        ordersList(1, counterOfRows) = dataRow.Item("I_ORDER_CONDITION")
        ordersList(2, counterOfRows) = dataRow.Item("I_SHORTNAME")
        ordersList(3, counterOfRows) = dataRow.Item("I_DIRECTION")
        ordersList(4, counterOfRows) = dataRow.Item("I_PRICE")
        ordersList(5, counterOfRows) = dataRow.Item("I_PRICESIZE")
        ordersList(6, counterOfRows) = dataRow.Item("I_REMAINDER_SIZE")
        ordersList(7, counterOfRows) = dataRow.Item("I_TIME")
        ordersList(8, counterOfRows) = dataRow.Item("I_DATE")
        ordersList(9, counterOfRows) = dataRow.Item("I_ORDER_CODE")
        ordersList(10, counterOfRows) = dataRow.Item("I_ORDERREF")
        counterOfRows = counterOfRows + 1
    End If
End Sub