Автоматическое создание списка всех проданных товаров

[eddyzp]

Помогите пожалуйста,
в искомом файле 31 лист (01, sheet3, sheet3,..., sheet31) сооствествующий каждому дню месяца.
В течении дня в соответсвующий дате лист вручную добавляется проданый товар.
Необходимо, чтобы на отдельном листе 'ALL' этот товар тоже автоматически добавлялся.
Нужны только столбцы CODE, MODEL DESCRIPTION, COLOR, SIZE
ломаю голову неделю

[kuklp1]

В модуль листа all:

Код Выделить Развернуть

Private Sub Worksheet_Activate()
    Dim sh As Worksheet, l&
    Me.UsedRange.Offset(1).Clear
    For Each sh In ThisWorkbook.Worksheets
        If Not sh Is Me Then
            l = 6
            Do While Len(sh.Cells(l + 1, 2)) > 1
                l = l + 1
            Loop
            If l > 5 Then sh.Range("a6:d" & l).Copy Me.Cells(Me.Rows.Count, 1).End(xlUp)(2)
        End If
    Next
End Sub

[eddyzp]

супер, все работает
спасибо огромное
а как исключить из программы некоторые листы?
например новый лист под названием  Sale