Sub ertert()
Dim x, i&, j&, sm#, mx#
x = Range("G1", Cells(Rows.Count, "G").End(xlUp)).Value
ReDim y(1 To UBound(x), 1 To 1)

For i = 2 To UBound(x)
    sm = x(i, 1)
    mx = 0
    For j = i + 1 To UBound(x)
        If Sgn(sm) <> Sgn(x(i, 1)) Then
            y(i, 1) = mx
            Exit For
        Else
            sm = sm + x(j, 1)
            If Abs(sm) > Abs(mx) Then mx = sm
        End If
    Next j
Next i

y(1, 1) = "Что должно получиться"
Range("J1").Resize(i - 1).Value = y()
End Sub

x = Range("G1", Cells(Rows.Count, "G").End(xlUp)).Value

Range("J1").Resize(i - 1).Value = y()

Sub Macros()
Dim tm!: tm = Timer
Application.ScreenUpdating = False
Dim iCell As Range
Dim AArray As Variant
Dim i As Long, j As Long
Dim Summ As Long, MinMax As Long
Set iCell = Range("G2") ' ячейка с которой начинаются значения "Что есть"
AArray = Range(iCell, Cells(Rows.Count, iCell.Column).End(xlUp)).Value
For j = 2 To UBound(AArray)
    Summ = AArray(j - 1, 1): MinMax = Summ + AArray(j, 1)
    For i = j To UBound(AArray)
        Summ = Summ + AArray(i, 1)
        If Sgn(AArray(j - 1, 1)) * MinMax < Sgn(AArray(j - 1, 1)) * Summ Then MinMax = Summ
        If Sgn(AArray(j - 1, 1)) * Summ < 0 Then Exit For
    Next i
    AArray(j - 1, 1) = IIf(i > UBound(AArray), 0, MinMax)
Next j
iCell.Offset(0, 4).Resize(UBound(AArray), 1) = AArray '4 - смещение относительно G2 начала вывода результата
Application.ScreenUpdating = True
MsgBox Timer - tm
End Sub

Public Sub check1()
Dim arrG, arr2() As Double
Dim i As Integer, j As Integer
Dim sum As Double, sumOut As Double
Dim flg1 As Byte, flg2 As Byte
Const numCln As Byte = 7
Const outCln As Byte = 9
Const startRow As Byte = 2

With Worksheets("basa")
    j = Cells(Rows.Count, numCln).End(xlUp).Row
    
    arrG = Range(.Cells(startRow, numCln), .Cells(j, numCln))
    
    ReDim arr2(1 To UBound(arrG), 1 To 1)

For i = 1 To UBound(arrG) - 1
    sum = arrG(i, 1)
    sumOut = sum + arrG(i + 1, 1)
    j = i
   
    Do
        j = j + 1
        sum = sum + arrG(j, 1)
       
        If arrG(i, 1) < 0 Then
            If sumOut > sum Then sumOut = sum
        Else
            If sumOut < sum Then sumOut = sum
        End If
        flg1 = Abs(Sgn(sum) <> Sgn(arrG(i, 1)))
        flg2 = Abs(j > UBound(arrG) - 1)
       
    Loop Until (flg1) Or (flg2)
    If flg1 <> 0 Then
        arr2(i, 1) = sumOut
    Else: arr2(i, 1) = 0 'перехода нет
    End If
  
Next i
.Range("J2").Resize(UBound(arr2)).Value = arr2()

End With
End Sub