Insert on change with autosum

[bouncey]

Hi,

I have the following code to insert a row at every change.

Dim lRow As Long
For lRow = Cells(Cells.Rows.Count, "a").End(xlUp).Row To 2 Step -1
If Cells(lRow, "j") <> Cells(lRow - 1, "j") Then Rows(lRow).EntireRow.Insert
Next lRow

How can I add autosum at every change and add a total after the last subtotal?

Thanks in advance.