Запоминание ячеек в память

[motorway]

Нужна функция: для каждого листа, кроме "Инфо", должны запомниться в память все значения ячеек из диапазона sh.Cells(2, 2), sh.Cells.SpecialCells(xlCellTypeLas tCell).
И вторая, которая все эти значения возвращает обратно в ячейки.

[EducatedFool]

Вот код для одного листа:

Dim arr1()

Sub Запоминание()
    Dim sh As Worksheet: Set sh = Worksheets(1)
    arr1 = sh.Range(sh.[b2], sh.Cells.SpecialCells(11))
    sh.Cells.Clear ' очистка листа (для примера)
End Sub

Sub ВосстановлениеДанных()
    Dim sh As Worksheet: Set sh = Worksheets(1)
    sh.Range(sh.[b2], sh.Cells.SpecialCells(11)) = arr1
End Sub

Самостоятельно реализуйте цикл по листам - примеры есть на форуме.
Массивов понадобится столько, сколько листов в книге.

[motorway]

2 проблемы: как объявлять массивы с новым именем, т.е. имя должно создаваться динамически? И как вызвать функцию Запоминание()? Если ее вызвать в Sub Кнопка1_Щелчок(), не работает - syntax error.

[SAS888]

В программном модуле объявите глобальные переменные:

Public arr1() As Variant
Public arr2() As Variant

и т.д. Сколько листов, столько и массивов.
После этого, занесенные в массив значения будут доступны в любое время из любой процедуры.