Need a code to sum various sized blocks of data

[Jim885]

I have the below spreadsheet that I'm trying to get vba to sum each block of data, but not having much success.

As each block of data varies in row counts, I cant figure this one out.

I need the sums to appear in column H, next to Total:

Can someone help?

Thank you.

Date	Crew Name	Assignment	Total Count	Value Each	Value	Total:	Costs	$$ Remaining	Qty Remaining	Percent Completed
3/11/2020	Rob	Code 2	26​	$ 20.00	$ 520.00	10​	$ 200.00	$ 10,440.00	522​	18%​
3/11/2020	Rob	Code 4	15​	$ 80.00	$ 1,200.00	2​	$ 2,523.46	$ 30,281.54	24​	23%​
3/11/2020	Rob	Code 2	11​	$ 150.00	$ 1,650.00	25​	$ 4,250.00	$ 16,660.00	98​	26%​
3/11/2020	Rob	Code 3	23​	$ 20.00	$ 460.00	80​	$ 1,600.00	$ 8,840.00	442​	17%​
3/11/2020	Rob	Code 1	15​	$ 60.00	$ 900.00	15​	$ 17,407.41	$ 6,425.16	147​	10%​
						Total:
3/11/2020	Jack	#44	26​	$ 20.00	$ 520.00	200​	$ 4,000.00	$ 4,840.00	242​	55%​
3/11/2020	Jack	#21	84​	$ 10.00	$ 840.00	25​	$ 4,250.00	$ 12,410.00	73​	45%​
3/11/2020	Jack	#51	17​	$ 55.00	$ 935.00	50​	$ 2,750.00	$ 19,965.00	363​	12%​
3/11/2020	Jack	#24	11​	$ 90.00	$ 990.00	10​	$ 1,987.67	$ 23,056.98	116​	34%​
						Total:
3/11/2020	John	#6	64​	$ 20.00	$ 1,280.00	40​	$ 46,419.75	$ 6,482.13	107​	34%​
						Total:
3/11/2020	Gerry	#14	6​	$ 30.00	$ 180.00	3​	$ 900.00	$ 900.00	3​	50%​
						Total:
3/11/2020	Charlie	Code 4	2​	$ 25.00	$ 50.00	1​	$ 2,340.00	$ -	0​	100%​
3/11/2020	Charlie	Code 2	4​	$ 16.00	$ 64.00	1​	$ 2,340.00	$ -	0​	100%​
3/11/2020	Charlie	Code 4	8​	$ 29.00	$ 232.00	1​	$ 4,290.00	$ -	0​	100%​
3/11/2020	Charlie	Code 2	3​	$ 12.00	$ 36.00	0​	$ 4,290.00	$ -	0​	100%​
3/11/2020	Charlie	Code 3	6​	$ 17.00	$ 102.00	0​	$ 2,340.00	$ -	0​	100%​
3/11/2020	Charlie	Code 1	9​	$ 32.00	$ 288.00	0​	$ 300.00	$ -	0​	100%​
						Total:

 

[Fluff]

How about

Sub Jim()
   Dim Rng As Range
   For Each Rng In Range("H2", Range("H" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      Rng.Offset(Rng.Count).Resize(1).Formula = "=sum(" & Rng.Address & ")"
   Next Rng
End Sub

 

[Jim885]

Fluff,

That was perfect!
Thank you so much.

 

[Fluff]

You're welcome & thanks for the feedback