Вот это красиво. А то предыдущий вариант какойто зацикленный, при имени 01.12.13 постоянно пытается выполнить   NameNewSh = InputBox("Новая дата?", "Введенне названия нового листа", Mid(ActiveSheet.Name, 1, 2) + 1 & "." & Month(Now()) & "." & Year(Now()))
Согласно инструкции Resume Next.

Спасибо, работает. Но это вариант из-за угла. А напрямую нельзя объяснить экселю, что если количество знаков в новом имени меньше, то нужно добавить впереди ноль?  

Есть книга, каждый лист по имени соответствует дню месяца 01.12.13, 02.12.13 и т.д. Надо вставить новый лист с очередной датой и вынести новое имя в ячейку. Поскольку создаётся лист в любое время суток, возможно до смены системной даты, в макросе к ней привязаны только месяц и год.
Проблема, из листа 01.12.13 создаёт лист 2.12.13. При дальнейшем при попытке вставить новый лист после 2.12.13 выдаёт ошибку. Правлю имя лист на 02.12.13 и всё работает. Этож надо до 10 числа править, неудобно.

Да,спасибо, это то, что хотелось. У самого тяму хватило только на "этажерку", и то не весь интервал:(

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

Из-за малой чувствительности датчика исходные данные получаются ступенькой. Можно их сгладить? Данных много, 1500-2000

Файл

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