ta tabulka se moc nezměnila od té doby co jsem ji viděl naposledy :-).
Nevím jestli jsem to úplně dobře pochopil, ale když do makra které už tam je vložíte:
If Cells(ActiveCell.Row, 10) = 1000 Then Cells(ActiveCell.Row + 1, 10) = Cells(ActiveCell.Row, 9) - Cells(ActiveCell.Row, 10)
tak by to snad mohlo splňovat požadované.
M@citovat