Ставите автофильтр, затем фильтром по правому столбцу оставляете только закрашенные.
Стираете в них всё в правом же столбце.
Сбрасываете фильтр..
Выделяете в правом ячейки с первой по последнюю (в т.ч. и пустые закрашенные).
Встаете на левый столбец, в первую ячейку. Вызываете диалоговое окно "Специальная вставка".
Выбираете "Вставить - значения, И СТАВИТЕ ГАЛОЧКУ "пропускать пустые ячейки".
Нажимаете ОК.

"Шелезяка" ?

Вы файл смотрели? Из сообщ. #5 ?

А погуглить? Не судьба?

Добрый следующий день! Чем Вас не устроил пример из #5?

А зачем они Вам, если всё равно не работают и не дают работать другим макросам? Ну, можно просто поставить апостроф в начале строки (т.е. закомментировать строку). Тогда строка останется, но обрабатываться не будет.
А зачем Вам сортировка после добавления записи? С чем связано такое желание? М.б. лучше ее делать перед сохранением файла или при деактивации листа? Дело в том, что в ексель нет такого понятия, как "запись", "строка", как в БД (Акцесс, например). Поэтому и нет событий, связанных с изменением, добавлением и удалением записи.  

Прикольно

Супер! То, что надо

Доктор: - На что жалуетесь?
Пациент: - Меня все игнорируют!
Доктор: - Следующий!

1. "Compile error-expected expression" - у Вас в Модуль2 есть "красные" строки. Закомментируйте их. Или удалите. Они вызывают эту ошибку.
2. "...дальнейшая сортировка по столбцам, а не по строкам..." - это не понятно.
3. У Вас лист - защищен и запаролен. М.б. поэтому макрос не срабатывает?

М.б. Вы этого не знаете:
1. Ексель не делает перенос слов по слогам. Только слово целиком.
2. Высота строки ексель имеет ограничение (409,5 уе, т.е. примерно пол листа А4).
3. Кол-во символов в ячейке - тоже ограничено (не помню, сколько, но больше, чем 30000.)
4. Даже если Вас устроит перенос по словам, - начиная с определенного кол-ва символов ексель перестает переносить текст в ячейке (было в ранних версиях. в 2013 - уже нет).

Можно с помощью "Сводной таблицы"...

Значит у Вас есть ссылка на другой файл в формуле(-ах). Поэкспериментировал на Вашем файле. Всё работает.
Я бы Вам порекомендовал называть листы не полной датой, а числом месяца. Тогда можно просто сделать файл-заготовку (шаблон) с листами без данных и сохранять его с использованием нужного месяца/года в имени файла. У Вас же файл на один месяц рассчитан, не на год?

Теперь еще вот про это: "...Так же, на другом листе может вместо 1017 быть уже другой номер, чтобы формула не сбивалась...."
Ваш способ хранения данных не позволит написать такую формулу... либо она будет очень сложной. По-моему.

Воспользовался Вашим примером. Только использовал объект Range() "Умной таблицы", а не Cells() листа. Чтобы не зависеть от координат таблицы на листе.

Если в строке 2 указан:
- номер столбца для суммирования, то можно с пом. формулы =СУММЕСЛИМН(ИНДЕКС($K$3:$M$6;;C$2);$I$3:$I$6;$A4;$J$3:$J$6;$B4).
- наименование нужного столбца, то нужно еще использовать функцию =ПОИСКПОЗ().

А можно - просто сначала вставить формулу, как у Вас, а потом уже пораздвигать и повставлять недостающие столбцы.

Скопируйте лист "02.12.18", и на новом листе выделите столбец О, а потом воспользуйтесь "Поиск-Замена" (Ctrl+H). Искать "01.12.18" менять на "02.12.18"

Да, и это уже не исправить

я бы сделал так, как Вы написали. По клику открывался бы лист, в который заносилась бы новая запись с заполненным наименованием выбранной посуды. И человек руками бы эту запись заполнял, как Вы же и написали ▼
Только не стал бы вставлять копию картинки выбранной. Картинки быстро увеличат вес Вашего файла, а наименование, артикул уже и так был вставлен автоматом при добавлении новой записи, когда кликнули по картинке..

Именно!

Добрый день!
М.б. кто-то уже это предложил. Нет времени всё читать.

Есть еще такой вариант.

Дайте собственные имена ячейкам, в которых у вас записано "Таблица...".
Тогда Ваш первоначальный макрос будет выглядеть почти без изменений.

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

Добрый день!
При сохранении файла (Save As...) в окне Сохранение документа выберите кнопку "Сервис ▼" и там - "Общие параметры".
Установите нужный пароль и галочку "Рекомендовать для чтения".
Рекомендую создавать и резервную копию. Хоть какая-то "защита от дурака".

м.б. так? Смотрите в Диспетчере имен. Всё без макросов.

Не тема, а полный бред...
Alexx1975, Вы извините, но ясность мысли подразумевает и узнается по ясности изложения.
Вы сами представляете, чего хотите?
У меня сформировалась полная уверенность, что нет.
Мои клещи для вытягивания из Вас "чего же Вам надо" - поломались.
Удачи Вам в оттачивании мастерства изложения своих мыслей.

Пожалуйста.

Понятнее не стало... Наверно, сегодня день такой... М.б. просто прочтете правила форума, сделаете, как там рекомендовано, и всё станет понятнее?

Если Вы увеличите высоту строки, - карточка тем более не будет вмещаться. Вы о чем, вообще? А я о чем?! о_О
Если сделать "Вставить разрыв страницы" (сообщ. #4), то у Вас и так каждая карточка будет на отдельном листе, без увеличения "...высоты строки перед...".

А вот это уже пугает... А что, повысить квалификацию - никак?

Нельзя на один лист впихнуть невпих...
Как Вы предполагаете сделать, чтобы на один лист входила карточка с любым количеством строк?

В чем должна состоять помощь?

Если у них разные названия, то что мешает добавить еще один Private Sub?