Циклический вывод максимумов функции

Sub MaxLen()
    Dim a(), b(), c(), rCol1 As Range, perehod As Boolean, nach As Boolean
    Dim i&, j&, n&, MaxZn As Long
    Set rCol1 = ActiveSheet.UsedRange.Columns(1)
    Set rCol1 = rCol1.Cells(3).Resize(rCol1.Cells.Count - 2) 'ñòîëáåö áåç çàãîëîâêà
    a = rCol1.Resize(, 2).Value
    j = 1
    nach = True
    For i = 1 To UBound(a, 1)
        If a(i, 2) = 0 Then
            If Not perehod Then
NewNach:
                If nach Then
                    n = i
                    MaxZn = 0
                    nach = False
                    perehod = True
                Else
                    ReDim Preserve b(1 To j)
                    b(j) = MaxZn ' Ìàêñèìàëüíîå çíà÷åíèå
                    ReDim Preserve c(1 To j)
                    c(j) = a(i, 1) - a(n, 1) 'Äëèííà
                    nach = True
                    j = j + 1
                    GoTo NewNach
                End If
            Else
                perehod = False
            End If
            
        End If
        If a(i, 2) > MaxZn Then MaxZn = a(i, 2)
    Next
    [D2] = "Max"
    [e2] = "Len"
    [d3].Resize(UBound(b), 1) = Application.Transpose(b)
    [e3].Resize(UBound(c), 1) = Application.Transpose(c)
End Sub