ColumnIndex =  1 
    MaxSum =  0 
    MaxStart =  0 
    MaxCount =  0 
    tSum =  0 
    tStart =  0 
    tCount =  0 
    LastValue = False
    
    i =  1 
    Do While Not IsEmpty(Cells(i, ColumnIndex).Value)
        tValue = Cells(i, ColumnIndex).Value
        If tValue <=  0  Then
            If LastValue And tCount >= MaxCount Then
                MaxSum = tSum
                MaxStart = tStart
                MaxCount = tCount
            End If
            LastValue = False
            tSum =  0 
            tStart =  0 
            tCount =  0 
        Else
            If Not LastValue Then
                tStart = i
            End If
            tSum = tSum + tValue
            tCount = tCount +  1 
            LastValue = True
        End If
        i = i +  1 
    Loop
    If LastValue And tCount >= MaxCount Then
        MaxSum = tSum
        MaxStart = tStart
        MaxCount = tCount
    End If
    MsgBox ("Sum=" & MaxSum & " St=" & MaxStart & " Cn=" & MaxCount)