insert formula in bottom blank cell to subtotal upto blank cell

[smeetony1]

Hi all

I have a worksheet containing thousands of numbers dates and times. All of which I have separated by inserting blank row after time value change.

I now need the blank row to subtotal the cells between the two blanks. The number of cells is not the same between any
of the blanks.

Is there a solution?

Thanks in anticipation.

Tony

 

[igold]

I can give you a VBA solution if you tell me what column you want the subtotals in...

 

[smeetony1]

I will add a sample of the chart. I would need the subtotal to follow through in the blank cells. Up to the blank cell above.

Sat	10:22	19/05/2018	0.00	0.92	0.67	8.22	0.38
Mon	10:22	21/05/2018	0.00	1.68	1.22	7.27	0.00
SUB
Sun	10:25	01/04/2018	0.00	2.50	1.43	8.23	0.02
Mon	10:25	02/04/2018	0.00	1.13	0.37	7.42	0.00
Sun	10:25	08/04/2018
Sun	10:25	15/04/2018	0.00	0.87	0.43	6.50	0.00
Sun	10:25	22/04/2018	0.00	0.97	1.37	7.33	0.00
Sun	10:25	29/04/2018	0.00	4.87	3.95	5.87	0.00
Sun	10:25	06/05/2018	0.00	2.23	1.22	6.62	0.77
Mon	10:25	07/05/2018	0.00	0.75	2.38	9.52	0.00
Sun	10:25	13/05/2018	0.00	5.60	5.08	6.22	0.03
SUB
Sat	11:22	31/03/2018	0.00	2.07	1.65	8.40	0.00
Wed	11:22	04/04/2018	0.00	1.92	1.15	6.85	0.00

<tbody>
</tbody><colgroup><col><col><col><col span="5"></colgroup>

Thanks

 

[igold]

Am I reading correctly, you want the subtotals in Columns D, E, F, G, H.

 

[igold]

Does this do what you want.

Sub GetSubs5()


    Dim subt As Double
    Dim TopofSection As Long, lastrow As Long
    
    Application.ScreenUpdating = False
    lastrow = Cells(Rows.Count, "B").End(xlUp).Row
    Do Until lastrow < 2
        TopofSection = Cells(lastrow, "B").End(xlUp).Row
        If Cells(lastrow - 1, 2) = "" Then TopofSection = lastrow
        subt = WorksheetFunction.Sum(Range("D" & TopofSection, "D" & lastrow))
        Range("D" & lastrow).Offset(1, 0).Value = subt
        subt = WorksheetFunction.Sum(Range("E" & TopofSection, "E" & lastrow))
        Range("E" & lastrow).Offset(1, 0).Value = subt
        subt = WorksheetFunction.Sum(Range("F" & TopofSection, "F" & lastrow))
        Range("F" & lastrow).Offset(1, 0).Value = subt
        subt = WorksheetFunction.Sum(Range("G" & TopofSection, "G" & lastrow))
        Range("G" & lastrow).Offset(1, 0).Value = subt
        subt = WorksheetFunction.Sum(Range("H" & TopofSection, "H" & lastrow))
        Range("H" & lastrow).Offset(1, 0).Value = subt
        lastrow = Cells(TopofSection, 2).End(xlUp).Row
    Loop
    Application.ScreenUpdating = True
    
End Sub