Sub mm()
j1a =  0 
j2 =  1 
s2a =  0 
Range("e1:f977").Value =  0 
Do While j1a <  975 
s1 =  0 
j1 =  0 
    Do While j1 <  975 
    j1 = j1 +  1 
    s2 = s1 + Excel.ActiveSheet.Cells(j1,  2 )
    If s2 <=  100  And Excel.ActiveSheet.Cells(j1,  6 ) =  0  Then
    s1 = s2
    Debug.Print Excel.ActiveSheet.Cells(j1,  2 );
    Excel.ActiveSheet.Cells(j1,  5 ) = s1
    Excel.ActiveSheet.Cells(j1,  6 ) = j2
    End If
    Loop
    
j1a = j1a +  1 
If s1 >  0  Then
j2 = j2 +  1 
s2a = s2a + s1
Debug.Print j2, s1, s2a, s2a \  100 
End If
Loop
End Sub