k61-спасибо за ваш пример. Немного задержался с ответом, проблемы с интернетом. Ваш файл с макросами отлично работает, но стоит открыть даже пустую страницу в Excel 2010 с вашими макросами, то при копировании Лист1 копируется, но затем появляется ошибка ‘6’- Dim x As Long x = 2000 * 365   ' Error: Overflow.  

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

Макрос копирует, затем выдаёт ошибку в сроке 5. Спасибо за ваши труды.

k61- вам тоже большое спасибо за работу. Макросы работают, но лист1  копируется на новый лист
без изменения ширины столбцов. Возможно ли это как то исправить?

Максим, огромное спасибо за помощь! Макрос-это сила!!!

Прошу прощения, похоже вопрос по макросу изложил неверно. Я хотел оставить этот макрос, только изменить код, чтобы убрать окно <копирование> и задать постоянное значение Лист1 (A1:K52) копировать на новый лист, а остальное всё оставить. Спасибо.

Доброй ночи! Помогите, пожалуйста! На просторах интернета нашел макрос, который копирует выделенные ячейки на новый лист. Как заменить код Set R = Application.InputBox(prompt:="Выделите диапазон для копирования:", Title:="Копирование", Type:=  на постоянное значение Лист1  или диапазон ячеек А1:К52. Спасибо!

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

Здравствуйте. Подскажите пожалуйста, возможно ли в данной таблице сделать так чтобы данные из столбца “конец” перемещались в столбец “начало” при изменении даты. Спасибо.