Inserting and summing rows

Hi.

I have a list in column D. List is sorted, so all data is grouped.

I am trying to insert a blank row after each group

Example:
103
103
107
109
109
109
109
Needs to be…
103
103

107

109
109
109
109

Then, I want to add a subtotal for each group, but in columns R, S, and T instead of column D. I will be summing the data that is in column R for each group, column S for each group, and column T for each group. Column D is only used to sort and space the groups.

Thanks for any help!

Thank you Stan and Alan.

Alan, I was looking to do both tasks in one step, but using the subtotal feature works just fine.

I used this code to separate the groups:

Sub process()
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "D").End(xlUp).Row
For i = Lastrow - 1 To 1 Step -1

If Cells(i, "D").Value2 <> Cells(i + 1, "D").Value2 Then

.Rows(i + 1).Insert
End If
Next i
End With

Application.ScreenUpdating = True
End Sub

and then used the subtotal feature to get my subtotals.

Thanks again for your help!