Все проверил, все отлично работает!  В процессе проверки появилась идея использовать верхнюю самую первую строку, для возможности переброски по рейтингу магазина.
Если в первой строке все единицы, переброска идёт слева на право, как это сейчас.
Если в первой строке проставлен рейтинг магазинов переброска идёт в порядке рейтинга от наименьшего к большему
Если в первой строке во всех колонках стоит R, переброска идёт не слева направо, а случайным образом Random
Я так думаю что, для этого необходимо в самом начале перемешать магазины согласно условию которое стоит в первой строке. А дальше уже макрос работает как и уже есть. Если есть возможность добавьте пожалуйста эту функцию. Тут сложность в том, что столбец магазина содержит объединённые и не сортируется обычной сортировкой.

Все работает отлично, нужна небольшая доработка, к сожалению был неправ, говоря, что надо оперировать со свободным остатком (остаток минус продажа)
Если на магазине продажи 5 и остаток 5 то с этого магазина товар не забирается хотя можно забрать 4 штуки оставив одну. т. остаток одной штуке на магазине с продажами вполне достаточно. Этот момент поддаётся исправлению? Чтобы если есть потребность для перемещения товар забирался до остатка 1 шт.
в прикреплённом файле отразил.

Тк же свободный остаток плохо когда на магазине остаток-2, а продажи-1, получается неперемещаемый остаток в магазина 2. При этом есть магазины с продажами вообще без остатка.  

Пока вроде все верно, завтра с утра ещё внимательно протестирую, по результату отпишу.
Модераторы, извините за кривое название темы.
Предлагаю следующее название: "Макрос для переноса данных по по строке. С выгрузкой отчёта."

Правильно я думаю макрос выбирает максимальную ячейку только один раз, и потом расходует её пока не обнулит. Получается для случая в приложении (последняя строка) товар7 забирается только из магазина4 пока в итоге там не будет 0. А магазин5 остаётся не расходованным.
Хотя когда мы забрали из магазина4 одну единицу, он уже не стал магазином с наибольшим остатком. Есть возможность совершенствовать? Таким образом, чтобы каждый раз товар забирался из магазина с наибольшим свободным остатком (остаток минус продажа).

Прикрепил файл с результатом. Забирается верно, но результат дублируется.  

Да, верно так лучше. Спасибо!
Сделайте пожалуйста, чтобы товар забирался с магазина с наибольшим свободным остатком (остаток минус продажа)

Огромное спасибо! Очень круто! Можно только небольшие поправки
1. Чтобы товар забирался с магазина  с наибольшим свободным остатком
2. И если на остатках изначально есть товар туда ничего не перемещалось

В прикреплённом файле, на втором листе я скопировал результат и добавил комментарии.

Если мы берём такую формулировку, то сравнивается остаток и продажа. И появляется потребность в перемещении если остаток не ноль, а продажи больше остатка.
Например: Пусть Остаток 2 продажа 5. По такой логике уже уже необходимо перемещение.
Нам же необходимо взять магазин в котором неважно сколько было бы продаж, главное чтобы они были. А остаток при этом именно ноль. И сделать остаток 1 шт.

Получается так:
в таблице (Лист1, строка = товар, столбцы = остатки и продажи по магазинам) если остаток товара в магазине равен нулю и при этом в нем была продажа (продажа больше 0), то ищем магазин (с лева на право) с наибольшим свободным остатком (остаток минус продажа) и перемещаем одну единицу товара на остаток магазина, где была продажа а остаток при этом 0. Каждое перемещение фиксируем в отдельной таблице (Лист2) со следующими полями: код товара, название, откуда, куда, сколько (ВСЕГДА ОДНА ШТУКА). Таблица дополняется сверху вниз.

Это не новая вводная это стрелками показано, там где было использование там остаток одна штука.вот именно это. Спасибо.

Очень интересное замечание, тогда получается нужно менять исходную таблицу, а список дополнять. Чтобы исключить человеческий фактор.Да, все верно там где есть продажа/использование остаток в итоге должен быть 1

Нет, вы знаете, это не так. Для меня действительно важно решить эту задачу, т.к. я большой противник ручного труда там, где есть возможность использовать алгоритм. Ексель с этой точки зрения очень классный инструмент, но моих знаний отнюдь недостаточно для решения этой конкретной задачи, а бюджет на программиста к сожалению мне никто не подпишет. Там где я могу справиться я делаю это самостоятельно. Да и работа моя далека от программирования, если вот так честно. Я считаю, что если есть пробел или недопонимание всегда можно задать вопрос как это сделал уважаемый JayBhagavan, на все вопросы я готов ответить. Я еще раз прошу прощения если чем-то вас задел или обидел, я не ставил это своей целью.

Добрый день.Прошу извинить за косноязычность.
Не принципиально, главное чтобы сформировал список на втором листе что куда переместитьТут имеем дело с тест системами и достаточно 1 единицы чтобы закрыть потребность ячейки(магазина)пока не наведет порядок по строке. т.е все где были продажи(использованы) не пополнятся
Спасибо за внимательность. просто думал это представить как продажи товара чтобы было проще. прикрепил исправленный файл. Можно считать, что это товар и магазины с продажами остатками, только их 40 и товар перемещается по одному.    

JayBhagavan, )))
постараюсь перевести я на более простой язык. Например что красные столбцы это остатки скажем на магазине, а синие это продажи. Нужен такой макрос который смотрит по строке. И из магазинов где товара на остатках больше чем продается перебрасывает товар туда где он продался и на остатках 0.   При этом перебрасывается только одна  штука. Только магазинов при этом ну скажем 40. В файле я стрелками логику вроде попытался объяснить. Но что то пошло не так.

Необходимо сделать переброску тест систем из ячеек где есть свободные туда где их не хватает.
в приложенном файле все отобразил. Пытался написать с помощью Если, но тут определено нужен макрос.

Тест забирается из ячейки хранения где есть остаток, но нет Исползованных или Остаток больше чем Использованных, в ближайшую ячейку где были использованные, но нет остатка

Ващее крутяк - все отлично работает только когда копируешь код в среду VBA русские буквы меняются на знак "???" но это поправимо. Спасибо!

Добрый день. Необходимо собрать данные из нескольких столбцов в один как в приложенном файле.
для подобных задач использовался макрос

но никак не могу его сюда приспособить. Чтобы таблица формировалась на отдельном листе и в том виде к котором нужно.