Copia valore con segno opposto se

Sub Formule()
Dim r, r1, c, x, y, k

r1 = Cells(Rows.Count, 7).End(xlUp).Row
Range("I2:I" & r1).FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("J2:J" & r1).FormulaR1C1 = "=IF(RC[-4]=""Totali"",RC[-1]/RC[-2],"""")"
k = 2: c = 11
For x = 2 To r1
  If Cells(x, 6) = Cells(1, 16) Or Cells(x, 6) = Cells(2, 16) Then 'da modificare nel caso
    Cells(x, 7) = Cells(x, 8) * -1
    Cells(x, 8) = 0
  End If
  If Cells(x, 6) = "Totali" Then
    For y = k To x
      Cells(y, c).FormulaR1C1 = "=RC[-4]/R" & x & "C8"
    Next y
    k = y
  End If
Next x
End Sub

If Cells(x, 6) = "Totali" Then 'una volta che trovo Totali x è la riga dove si trova Totali
    For y = k To x ' cicla le celle da k ad x -- k è la cella di partenza oppure la cella appena dopo la riga "Totali"
      Cells(y, c).FormulaR1C1 = "=RC[-4]/R" & x & "C8" 'scrivo la formula mantenendo la x valore assoluto
    Next y
    k = y 'riassegno a k la riga dopo "Totali" in quanto finito il ciclo y è uguale ad x+1
  End If

Sub Formule()
Dim r, r1, c, x, y, k

r1 = Cells(Rows.Count, 7).End(xlUp).Row
Range("I2:I" & r1).FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("J2:J" & r1).FormulaR1C1 = "=IF(RC[-4]=""Totali"",RC[-1]/RC[-2],"""")"
k = 2: c = 11
For x = 2 To r1
  If Cells(x, 6) = Cells(1, 16) Or Cells(x, 6) = Cells(2, 16) Then
    Cells(x, 7) = Cells(x, 8) * -1
    Cells(x, 8) = 0
  End If
  If Cells(x, 6) = "Totali" Then
    For y = k To x
      Cells(y, c).FormulaR1C1 = "=RC[-4]/R" & x & "C8"
    Next y
    'formule per il SubTotale
    Cells(x, 7).FormulaR1C1 = "=SUM(R[-" & x - k & "]C:R[-1]C)"
    Cells(x, 8).FormulaR1C1 = "=SUM(R[-" & x - k & "]C:R[-1]C)"
    k = y
  End If
Next x
End Sub

Option Explicit

Private Sub Worksheet_Activate()

With WebBrowser1
  .Width = 200
  .Height = 150
  .Navigate "C:\Users\Xxxx\Downloads\balla.GIF"    'da modificare secondo le proprie esigenze: percorso completo + nome immagine con suffisso
  '.ScrollBars = 0 'fmScrollBarsNone
End With
End Sub
Quindi bisogna spostarsi su un altro Foglio. Quando ritorni su tuo Foglio vedrai l'immagine animata.
Nel codice ho lasciato 'ultima riga commentata perchè non riesco ad eliminare le barre di scorrimento (all'inizio me ne sono apparse due - verticale e orizzontale ma poi ne è rimasta una sola verticale).

So che sono OT e chiedo scusa ma volevo dare il mio contributo a coloro che hanno una vecchia versione di Excel.
Ciao,
Mario