Insert Blank row and sum the values

[HECGroups]

Hello Again,

I am looking for a macros where it insert the blank row above and below if the cell value is repeating within a column G (Batch No.).

Why I need a macros because the data is large about 10 to 20 thousand rows.

Book1
	E	F	G	H	I	J	K	L	M	N	O
1	Provider Name	Batch Status	Batch No.	Total Claims	Ref No.	Batch Type	Processing Date	Claimed Amount	Net Amount	Rejected Amount	Approved Amount
2	Al Dar Hospital (Quba)	Settled	NB20150322-1614	21	3/2015-311	Network	22-03-2015	300.00	95.00	200.00	100.00
3	Al Dar Hospital (Quba)	Settled	NB20150316-1431	25	3/2015-224-ops	Network	16-03-2015	300.00	95.00	200.00	100.00
4	Al Dar Hospital (Quba)	Settled	NB20150414-2083	32	4/2015-331	Network	14-04-2015	300.00	95.00	200.00	100.00
5	Al Dar Hospital (Quba)	Settled	NB20150524-2865	14	5/2015-416	Network	24-05-2015	300.00	95.00	200.00	100.00
6	Al Dar Hospital (Quba)	Settled	NB20150616-3263	39	6/2015-471	Network	16-06-2015	300.00	95.00	200.00	100.00
7
8	Al Dar Hospital (Quba)	Settled	NB20150803-3996	51	8/2015-583	Network	03-08-2015	300.00	95.00	200.00	100.00
9	Al Dar Hospital (Quba)	Resubmission Adjustment	NB20150803-3996								25.00
10											-75.00
11	Al Dar Hospital (Quba)	Settled	NB20150824-4424	72	8/2015-665	Network	24-08-2015	300.00	95.00	100.00	100.00
12	Al Dar Hospital (Quba)	Resubmission Adjustment	NB20150824-4424								100.00
13											100.00
14	Al Dar Hospital (Quba)	Settled	NB20150929-4945	67	9/2015-736	Network	29-09-2015	300.00	95.00	200.00	100.00
15	Al Dar Hospital (Quba)	Resubmission Adjustment	NB20150929-4945								25.00
16											-75.00
17	Al Dar Hospital (Quba)	Settled	NB20151020-5378	70	10/2015-783	Network	20-10-2015	300.00	95.00	200.00	100.00
18	Al Dar Hospital (Quba)	Partially Approved	NB20151201-6113	72	12/2015-900	Network	01-12-2015	300.00	95.00	200.00	100.00
19	Al Dar Hospital (Quba)	Open	NB20151229-6683	0	12/2015-OPS	Network	29-12-2015	300.00	95.00	200.00	100.00
Statement (2)

Cell Formulas
Range	Formula
O10	=SUM(O8:O9)-N8
O13	=SUM(O11:O12)-N11
O16	=SUM(O14:O15)-N14

 

[JLGWhiz]

Sub sumAdj()
Dim i As Long
With ActiveSheet
    For i = .Cells(Rows.Count, "G").End(xlUp).Row To 3 Step -1
        If .Cells(i, 7).Value = .Cells(i - 1, 7).Value Then
            .Rows(i + 1).Insert
            .Cells(i + 1, 15) = (.Cells(i, 15).Value + .Cells(i - 1, 15).Value) - .Cells(i - 1, 14).Value
            .Rows(i - 1).Insert
        End If
    Next
End With
End Sub

 

[Osvaldo Palmeiro]

Sub InsertRowsNFormulas()
 Dim LR As Long, k As Long
  LR = Cells(Rows.Count, 7).End(xlUp).Row
  For k = LR To 2 Step -1
   If Cells(k, 7) = Cells(k - 1, 7) Then
    If Cells(k + 1, 7) <> "" Then Rows(k + 1).Insert
     Rows(k - 1).Insert
    Cells(k + 2, 15) = "=SUM(R[-2]C:R[-1]C)-r[-2]c[-1]"
    k = k - 1
   End If
  Next k
End Sub

 

[HECGroups]

Thanks to both of you.

Both Scripts are working for me.

 

[JLGWhiz]

Thanks to both of you.

Both Scripts are working for me.

Happy to help,
regards, JLG