Перенос данных из таблицы на листах в один лист Excel - VBA

Формулировка задачи:

Приветствую! Столкнулся с такой задачей: Имеется файл с набором листов с данными в таблице. Алгоритм действий такой (как мне кажется): 1. Присвоить название листа переменной wsName. 2. Присвоить поячеечно из указанного диапазона данные из ячеек переменным с1,c2,c3...сn. 3. Вставить в заранее созданный пустой лист Compilation поячеечно одной строкой значения переменных wsName, с1,c2,c3...сn. 4. Переключиться на следующий лист. 5. Повторить пункты 1,2. 6. Повторить пункт 3, но в следующей строке. Заранее благодарен за ответы и помощь в поиске решений. Файл пример прикреплен.

Решение задачи: «Перенос данных из таблицы на листах в один лист Excel»

textual
                            Листинг программы 
                        

                            Sub tt()
    Dim sh As Object, r As Range, i&, ii&
    For Each sh In Worksheets
        If sh.Index <> Me.Index Then
            i = i + 1: ii = 1
            Cells(i, ii) = sh.Name
            For Each r In sh.UsedRange.Cells
                ii = ii + 1
                Cells(i, ii) = r.Value
            Next
        End If
    Next
End Sub
                        