SUMIF formula that counts

I'd combine COUNTIF, SUMIF, and maybe some SUMPRODUCT.

I used some code to kill all the subtotals first. Data and it's summaries should be separate.

Sub deleter()
For i = 3173 To 6 Step -1
    If Cells(i, 1) = "" Then Range(Cells(i, 1), Cells(i, 5)).Delete Shift:=xlUp
Next
End Sub

Go to VB Editor with Alt+F11, Insert->Module, paste the code there, close that window, Alt+F8, and run it.

I just slapped that code together to make short work of clearing all of the spaces in between your data.

Thank you. Glad I could help out.