Insertar filas y suma de valores con color fuente

Supongo que en la hoja "PLANILLA" tienes los datos originales. Podrías también poner una imagen de cómo están los datos originales, procura que en la imagen también venga un ejemplo con un nombre.

Por lo que veo en tu imagen, no se están sumando, se están restando, ¿es correcto?

¿Qué columnas quieres que se resten?

Buenas tardes Dante, adjunto pantallazos el como debe ir quedando la hoja resultado y como ejemplo tomo al primer trabajador ASCENCIO OBLITAS CESAR CAMILO como podrás ver esta 2 veces y es aquí donde debe insertarse 2 filas en blanco y posteriormente debe seguir el nombre de CABALLERO ESPINOZA VICTOR HUMBERTO y asi con el resto de trabajadores.

Ahora bien se debe restar los valores que están en fila K9 menos K8 dándome el resultado  en la fila K10 y asi el resto de columnas que serán K hasta AH y AJ hasta AP.

Luego empezar con el siguiente trabajador que seria CABALLERO ESPINOZA VICTOR HUMBERTO y asi con el resto de trabajadores. como se visualiza en la ultima imagen.

A la espera de su respuesta y siempre colaboración quedo de ti amigo.

K8 - K9 y el resultado en la fila K10

H o l a:

Te anexo la macro

Sub InsertarFilas()
'Por.Dante Amor
    Set h1 = Sheets("PLANTILLA")
    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

‘

S a l u d o s . D a n t e   A m o r. Recuerda valorar la respuesta. G r a c i a s

Buenos días Dante Amor; la macro se esta ejecutando excelentemente, salvo un detalle que me olvide de indicar y sino seria mucha molestia en que sume todos los valores que dieron como resultado de la resta.

¡Gracias! 

Buenas noches Dante Amor, como te indico la macro se esta ejecutando bien y me ahorro tiempo, ya que lo hice para calculo de reintegros de 3 meses y lo único donde estoy demorando es en sumar los valores que dieron como resultado de la resta. Espero vuestra ayuda y no abusando de los conocimientos que impartes en la solución diaria que se presenta.