Запуск макроса по Private Sub Worksheet_Calculate() по серой линии :
При изменении суммы в отдельной ячейке "Е8" проверяется вход количество "Р2" (имеет 3 значения: ,больше 0; =0; меньше 0) :
1. если значение"Р2" =0 , то проверяется значение "J6" если значение  "J6" = 0 то поступает команда макросу№1
2. если значение"Р2" =0, то проверяется значение "J6" если значение  "J6" = 1 то поступает команда макросу№2
3. если значение"Р2" = больше 0, то проверяется значение "J6" если значение  "J6" = 0 то не выполняет никаких действие
4. если значение"Р2" = меньше 0, то проверяется значение "J6" если значение  "J6" = 1 то не выполняет никаких действие
5. если значение"Р2" = больше  0, то проверяется значение "J6" если значение  "J6" = 1 то поступает команда макросу№3
6. если значение"Р2" = менше  0, то проверяется значение "J6" если значение  "J6" = 0 то поступает команда макросу№4