Á una que consegui en la WEBFormulas

Hola amigo Dam.

Te dejo el libro si puedes hacer algo de lo que te expongo

Esta una macro que tu hiciste

Sub ActualizaFormulas(i As Long)

On Error Resume Next

Application.EnableEvents = False
With Sheets("Datos") .Range("I" & i) = (.Range("H" & i) * 1.12) 'En I presenta la multiplicación por 1.12

.Range("L" & i) = .Range("J" & i) - .Range("K" & i) 'En L presenta la resta entre J y K

.Range("N" & i) = (.Range("H" & i) * 0.12) 'En N presenta la multiplicación por 0.12

.Range("O" & i) = .Range("I" & i) * .Range("P" & i) 'En O presenta la multiplicación de I con P End With
Application.EnableEvents = True

End Sub

y está una que consegui en la WEB

Sub CopiaFormula()
Dim fila&, filaD&
fila = Range("A1").SpecialCells(xlLastCell).Row
filaD = Cells(Rows.Count, 9).End(xlUp).Row
Range("I" & filaD).AutoFill Destination:=Range("I" & filaD & ":I" & fila)
Range("L" & filaD).AutoFill Destination:=Range("L" & filaD & ":L" & fila)
Range("N" & filaD).AutoFill Destination:=Range("N" & filaD & ":N" & fila)
Range("O" & filaD).AutoFill Destination:=Range("O" & filaD & ":O" & fila)
End Sub

y está otra que grabe con la grabadora pero, por lo que he podido leer, dicen q