Insertar fila cuando hay mucha fórmula en VBA

[Compumakro]

Amigos de Excel.
Después de haber hecho 52 líneas de  formulas, ahora necesito insertar una fila.
Al insertar se desubican  todas las celdas siguientes de las formulas.
La reubicación se puede hacer manual,  ejemplo lo que era "D20", luego de insertar pasaría a ser "D21".
Pregunto: Hay algún procedimiento menos engorroso que reubicar manualmente...?

Explico

Cells(10, 4) = Cells(10, 3) * 12
Cells(11, 4) = Cells(11, 3) * 12
Cells(12, 4) = Cells(12, 3) * 12
Cells(13, 4) = Cells(13, 3) * 12
Cells(15, 4) = Cells(15, 3) * 12
Cells(16, 4) = Cells(16, 3) * 12
Cells(17, 4) = Cells(17, 3) * 12
Cells(18, 4) = Cells(18, 3) * 12
Cells(19, 4) = Cells(19, 3) * 12
Cells(20, 4) = Cells(20, 3) * 12

Aquí, insertaría una fila.... ahora toca reubicar todas las siguientes celdas.... 
Range("D21") = Application.Sum(Range("D10:D20"))
Range("C21") = Application.Sum(Range("C10:C20"))
Cells(22, 4) = Cells(22, 3) * 12
Cells(23, 4) = Cells(23, 3) * 12
Range("C24") = Application.Sum(Range("C22:C23"))
Range("D24") = Application.Sum(Range("D22:D23"))
Cells(27, 4) = Cells(27, 3) * 12
Cells(28, 4) = Cells(28, 3) * 12
Range("C29") = Application.Sum(Range("C27:C28"))
Range("D29") = Application.Sum(Range("D27:D28"))
Cells(31, 4) = Cells(31, 3) * 12
Cells(32, 4) = Cells(32, 3) * 12

 

[JSDJSD]

Según lo que aportas, se me ocurre algo como esto

[JSDJSD]

hoy.xlsm