Subtotal only group duplicates if value in column

Y'all, I'm stumped. I am trying to format daily bank activity and I can't figure out how to do this last part. I have the data sorted the way I want, but now I need to get insert two rows under every change of value in column G where if there are duplicate values and then sum column D (debits) in one of new rows enter image description hereonly if there is a value in it. Then I need to do the same thing for column E (credits). For any unique values in column G, I just need to insert a line. I do this on a daily basis, so the solution needs to be for a macro. The format must match what the results picture looks like. Can someone please point me in the right direction?

Try the attached.

Sub test()
    Dim x, i As Long
    Application.ScreenUpdating = False
    With Sheets("sheet1")
        With .Range("g1", .Range("g" & Rows.Count).End(xlUp)(2))
            x = Filter(Parent.Evaluate("transpose(if(" & .Address & "<>" & _
            .Offset(1).Address & ",row(" & .Address & ")))"), False, 0)
        End With
        For i = UBound(x) To 1 Step -1
            If x(i - 1) - x(i) = 1 Then
                .Cells(x(i) + 1, 1).EntireRow.Insert
            Else
                .Cells(x(i) + 1, 1).Resize(2).EntireRow.Insert
                .Cells(x(i) + 1, "d").Resize(, 2).Formula = _
                "=if(count(d" & x(i - 1) + 1 & ":d" & x(i) & _
                "),subtotal(9,d" & x(i - 1) + 1 & ":d" & x(i) & "),"""")"
            End If
        Next
        .Columns.AutoFit
    End With
    Application.ScreenUpdating = True
End Sub

Thank you Jindon for putting this macro together in the spreadsheet and including a button. That was a nice touch. Unfortunately, when I ran it the unique values were also summed. I do have another project that this will work for though. Thank you again!

Holy cow! This worked! Thank you so much, you are incredible!

OOps, of course...
typo

            If x(i - 1) - x(i) = 1 Then

should be

            If x(i) - x(i - 1) = 1 Then