Огромное спасибо, надоумили. Поставил защиту и запамятовал. Как говорится "... а ларчик просто открывался". Все спасибо, за участие!!!

Соединений с внешними данными, нет, Файл большой, очень не хочется копировать и создавать заново. В "Лист1" внёс скопированные данные (всё нормально функционирует).
Если кто поможет решить проблему, заранее благодарен.

Подскажите, где можно посмотреть сборник макросов (возможно опубликованных, как самые популярные)?

Заново скопировал макрос, всё заработало.
Для форматирования прописал:

Sub ЗдигСтолбцов()
'
' ЗдвигСтолбцов Макрос
'

'
   ActiveWindow.ScrollColumn = 2
   ActiveWindow.ScrollColumn = 3
   Columns("D:D").ColumnWidth = 45
   ActiveWindow.ScrollColumn = 2
   ActiveWindow.ScrollColumn = 1
   Columns("C:C").ColumnWidth = 50.86      'устанавливаем ширину столбца "С"'
   Columns("D:D").ColumnWidth = 14.86      'устанавливаем ширину столбца "D"'
   Columns("B:B").ColumnWidth = 10.86      'устанавливаем ширину столбца "B"'
   Columns("E:E").ColumnWidth = 14.86      'устанавливаем ширину столбца "E"'
   Range("B4055").Select
   ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$F$4056"), , xlYes).Name = _
       "Таблица1"
   Range("Таблица1[#All]").Select
End Sub

Подскажите, в каком месте можно пристроить, что бы не запускать отдельно?

Не могу понять по какой причине перестала работать функция в макросе: "Создание умной таблицы" "Расчёт промежуточного итога". Скажите, куда можно направить файль (не проходит из-за большого объёма) .

это?

Не нашёл...

Можно вас попросить прокомментировать все действия. Я хотел бы добавить ещё действие, что бы убрать столбец "Исполнители". В Excel слаб, поэтому прошу, возможно по делитански. Спасибо.

Например:
Next    ActiveSheet.Shapes(1).Delete       "удаляет ....................."

Нет, не путаю.  

Так же не форматируется в умную таблицу.

Код ваш рабочий, но при выгрузке большего объёма данных (этот файл из-за ограничений сайта по объёмам данных не смог направить) пропадает подитог в столбце "B"

Спасибо. В данном макросе не отформатировано под дату колонка "F" и "J"

При выгрузке в Excel (2016) необходимо, в автоматическом режиме форматировать в умную таблицу, убрать ненужные столбцы и внести формулу на один столбец. Приходится часто выгружать таблицу и ручками убирать лишние столбцы форматировать в умную таблицу и вносить формулу с подитогом.Красным выделено, что убрать. Жёлтым, что необходимо добавить. Каким образом можно автоматизировать данную выгрузку? Заранее всем участвующим в данном вопросе благодарен.

Спасибо, с вашей помощью разобрался.

При применении фильтра по столбцу "C" в суммирование не попадают некоторые ячейки. Вероятно это связано с тем, что в столбце "С" применено объединение ячеек, так как при фильтре по столбцу "В" сумма подитога корректная. Есть ли возможность при объединённых ячейках в столбце "С" по "дате", получить корректный расчёт подитога по столбцам "I,J,K"?
Заранее все благодарен.

Разобрался, спасибо.

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

Можете подсказать. по какой причине перестало функционировать условное форматирования, начиная от строк 9 в столбце Q. Q9

Напишите пожалуйста формулы (в сообщении) для изменения на другой цвет, например на жёлтый, а то, что то не получается по аналогии.

Всем доброго дня.
Две ячейке, в одной дата (столбец -B), в другой текст (столбец -O)"ЗАЯВКА" (ЗАЯВКА-красный цвет, В РАБОТЕ-жёлтый, ИСПОЛНЕНО-зелёный). По условному форматированию ячейка с текстом "ЗАЯВКА" окрашена в красный  цвет.
Необходимо, что бы ячейка с датой ((столбец -B)) меняла цвет на аналогичный ячейки с текстом (столбец -O)(ЗАЯВКА-красный цвет, В РАБОТЕ-жёлтый, ИСПОЛНЕНО-зелёный).
Экселем пользуюсь не часто, поэтому нет большого опыта.

Ваш вариант решения проблемы, мне помог. Благодарю. Только в дополнение пришлось зайти во второе окно (оно вновь отобразилось) и в разделе Вид-Окно- надавить на "Скрыть". После этого, открывается, только одно окно.

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

Тем много , а ответа нет.

Всем доброго дня!

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

Участникам решения вопроса, заранее благодарен.

Спасибо, разобрался.

Что поправить в формуле, что бы столбец "В" тоже окрашивался?

Единственное, что хотелось бы изменить это, чтобы при отсутствии значения (цифры) в столбце "В", вся строка оставалось бесцветной.

Спасибо, работает. Добавил возможность окрашивания и столбца "ПРИОРИТЕТ"

Спасибо.

Отлично, спасибо.
Формулу, вижу.

Должно быть не сложно, но что то не соображу. Столбец "В"-ПРИОРИТЕТ" (необходимо, при внесении в него цифры от 1 до 5, чтобы остальные ячейки на этой строке окрашивались в заданный цвет ). Например, в ячейку В2 вносим цифру 1 или 2 , ячейки С2,D2,Е2, окрашиваются в зелёный цвет, при внесении цифры 3 или 4 в жёлтый, если вносим 5 в красный.

Спасибо, кто откликнется.
Заранее благодарен за формулу.