Suma de valores con color fuente

En una sesión me ayudaste en la confección de esta macro la cual permite insertar filas y restar valores por colores.

Sub InsertarFilas()
'Por.Dante Amor
Set h1 = Sheets("PLANILLA")
Set h2 = Sheets("RESULTADO")
h2.Cells.Clear
h1.Rows("1:7").Copy h2.[A1]
j = 8
For i = 8 To h1.Range("C" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "C") = h1.Cells(i + 1, "C") Then
h1.Rows(i & ":" & i + 1).Copy h2.Cells(j, "A")
With h2.Range(h2.Cells(j + 2, "K"), h2.Cells(j + 2, "AH"))
.FormulaR1C1 = "=R[-1]C-R[-2]C"
.Value = .Value
End With
With h2.Range(h2.Cells(j + 2, "AJ"), h2.Cells(j + 2, "AP"))
.FormulaR1C1 = "=R[-1]C-R[-2]C"
.Value = .Value
End With
i = i + 1
j = j + 4
Else
h1.Rows(i).Copy h2.Cells(j, "A")
j = j + 2
End If
Next
MsgBox "Insertar filas y suma de valores", vbInformation, "TERMINADO"
End Sub

Y ahora quisiera solicitar tú colaboración siempre desinteresa en que esta macro permita obtener la suma total, luego de haber obtenido la diferencia entre los valores de color, para lo cual adjunto imagen.

Resultado final

A la espera de su respuesta y agradeciendo siempre a Uds. Los miembros de este foro que siempre están llanos a apoyarnos.