Обход ошибки при срабатывании кода

On error resume next
If err then
'ваш код обработки
err.clear
endif
On error goto 0

Sub Ocherednost()
    Const FirstRow& = 3
    Const FirstTrudOper& = 13
    Const NZakCol& = 1
    Const NIzdCol& = 2
    Const RoditelCol& = 3
    Const OchCol& = 4
    Dim h&, i&, j&, k&, N&, LastRow&, LastCol&
    Dim Zakaz As String        '''''
    Dim SborkaNIz%, SborkaRow&, TRow&
    Dim MaxTrud!, MaxTrudSborka!, Trud!, Usl As Boolean, OcheredOld%
    LastRow = Cells(Rows.Count, NZakCol).End(xlUp).Row
    LastCol = Cells(FirstRow - 1, Columns.Count).End(xlToLeft).Column
    Range(Cells(FirstRow, OchCol), Cells(LastRow, OchCol)).ClearContents
    A = Range(Cells(1, 1), Cells(LastRow, LastCol)).Value
    ReDim TrudSbor(LastRow), TrudDet(LastRow), Sbornaya(LastRow)
    For i = FirstRow To LastRow
        For j = FirstTrudOper To LastCol Step 3
        Debug.Print A(i, j)
        If IsNumeric(A(i, j)) Then           ''''''
            TrudDet(i) = TrudDet(i) + A(i, j)
        End If                               '''''''
        Next j
    Next i
    For ZStartRow = FirstRow To LastRow
    Debug.Print A(ZStartRow, NZakCol) & "===='''''"
        Zakaz = A(ZStartRow, NZakCol)

Debug.Print A(i, j)
        If IsNumeric(A(i, j)) Then           ''''''
            TrudDet(i) = TrudDet(i) + A(i, j)
        End If