salve
ipotizzando che la tua tabella dati inizi da riga 4
B=descrizione
C= quantità
D=Carico
E=scarico
prova questa macro da copiare nel modulo del foglio in uso:
Private Sub Worksheet_Change(ByVal Target As Range)
Ur = Range("B4").End(xlDown).Row
Set Rng = Range(Cells(4, 4), Cells(Ur, 4))
Set Rng2 = Range(Cells(4, 5), Cells(Ur, 5))
Application.EnableEvents = False
If Not Intersect(Target, Rng) Is Nothing Then
Target.Offset(, -1).Value = Target.Value + Target.Offset(, -1).Value
Target.Value = ""
ElseIf Not Intersect(Target, Rng2) Is Nothing Then
Target.Offset(, -2).Value = Target.Offset(, -2).Value - Target.Value
Target.Value = ""
End If
Application.EnableEvents = True
Set Rng = Nothing
Set Rng2 = Nothing
End Sub
saluti
Giap