Нужно перенести все данные с листов одной книги на один

[Наталья-я]

Здравствуйте!
Есть книга со множеством листов с данными, с помощью макроса

Sub pp()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim shItog As Worksheet
Dim iL As Long, iL2 As Long
Set shItog = Sheets("лист1")
For Each sh In Worksheets
If sh.Name <> shItog.Name Then
iL = sh.Cells(Rows.Count, 1).End(xlUp).Row
iL2 = shItog.Cells(Rows.Count, 1).End(xlUp).Row + 2
sh.Range(sh.Cells(1, 1), sh.Cells(iL, 10)).Copy shItog.Cells(iL2, 1)
End If
Next sh
Application.ScreenUpdating = True
End Sub

собираются все данные на один листок.

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

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

[Казанский]

Сообщение от Наталья-я

Проблема заключается в том что на листах книги имеются формулы, которые не переносятся на собранный лист

Позвольте не поверить Вам. Если формулы находятся в назначенном диапазоне - с 1 по 10 столбец, с 1 строки по строку с последней непустой ячейкой в 1 столбце - то формулы переносятся.
Может быть, следует как-то иначе определять диапазон переноса?

Сообщение от Наталья-я

так же при редактировании данных не изменяются показатели на листе с собранными данными

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

[Наталья-я]

спасибо,

[Наталья-я]

Спасибо за ответ действительно дело было в диапазоне