Объединение таблицы

[asale]

Всем привет.
Очень нужна помощь кто знает макросы в Excel

Есть много листов с названиями магазинов, нужно формировать лист "Свод" на котором была бы информация по каждому магазину в таком формате.
Если бы я знал количество листов и их названия, то все было бы легко.

Как я понимаю нужно сделать цикл перебором, но вот не знаю как.
Может кто подскажет, пжл

[Watcher_1]

Ловите код

Sub TextBox1_Щелчок()
    Dim myF As Range
    myC = 3
    For i = 2 To Sheets.Count
        Sheets(1).Cells(1, myC) = Sheets(i).Name
        j = 2
        Do
            j = j + 1
            DoEvents
            If Sheets(i).Range("B" & j) = "" Then Exit Do
            Set myF = Sheets(1).Columns(2).Find(Sheets(i).Range("B" & j), , , xlWhole)
            If myF Is Nothing Then
                myR = Sheets(1).Range("B" & Sheets(1).Rows.Count).End(xlUp).Row + 1
                Sheets(1).Cells(myR, 2) = Sheets(i).Range("B" & j)
                Sheets(1).Cells(myR, i + 1) = Sheets(i).Range("C" & j)
            Else
                Sheets(1).Cells(myF.Row, 1 + i) = Sheets(i).Range("C" & j)
                myR = myF.Row
            End If
            If i = Sheets.Count Then
                Sheets(1).Cells(myR, 2 + i).FormulaR1C1 = "=SUM(RC3:RC[-1])"
            End If
        Loop
    Next
End Sub