Do VBA editoru (ALT+F8), dvojklik na List1 vaseho souboru se otevre prazdne okno. Tam vlozte nasledujici kod, a zkuste, jestli je to, co potrebujete.Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count = 1 ThenIf Target.Column = 8 ThenTarget.Offset(0, -1) = Target.Offset(0, -1) + Target.ValueElseIf Target.Column = 9 ThenTarget.Offset(0, -2) = Target.Offset(0, -2) - Target.ValueEnd IfEnd IfEnd Subsyd