Macro for multiple subtotals

Hello, i'm in need of some VBA help for an excel macro. I have a macro that takes data from one sheet and moves the relevant/needed data to a second sheet within the same workbook. Once the data is moved to a new sheet, the macro then separates the data based on the date by putting two lines in between each set of data as shown in the attached picture. What I would like to be able to do is subtotal each little group (generally anywhere between 1 and 3 lines) under the hours which is column J and that's where i'm stuck. I have everything else working properly except I am stumped on how to get column J subtotals for each little group to work. Any help would be greatly appreciated!

sample.JPG