Перенос данных с разных листов в один с фильтром...

[Tsvetochek]

Здравствуйте, уважаемые программисты.
У меня такая проблема, наверно она уже обсуждалась тут, но я так и не нашла решение своей задачи.

Есть четыре листа:
- Отчет
- Sony Ericsson
- Nokia
- Samsung

на последних трех листах отображается список товара, и какой из них был продан в течении дня.

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

[doober]

Смотрите вложение

[Tsvetochek]

Сообщение от doober

Смотрите вложение

Спасибо, работает!!!
А можете объяснить что обозначает каждая строчка в макросе, чтобы мне привязать его к своему реальному отчету?

[doober]

Sub COPY_D()

Dim m As Integer, rCo As Integer
Application.ScreenUpdating = False 'Выключаем обновление экрана
For n = 2 To 4 'Бегаем по листам с 2 по 4

 Sheets(n).Range("A1:C1").AutoFilter  ' На диапазон ставим фильтр с условием что в третьем столбике скрыть пустые ячейки.
 Sheets(n).UsedRange.AutoFilter Field:=3, Criteria1:="<>"

 rCo = Sheets(1).Range(("a1"), Sheets(1).Range("a" & Rows.Count).End(xlUp)).Rows.Count  'Определяем номер последней строки Листа1,не пустой
 
Sheets(n).UsedRange.SpecialCells(xlCellTypeVisible).Copy Sheets(1).Cells(rCo + 2, 1) 'Копируем видимые ячейки с выбраного листа на 1 лист в позицию через строку.
 
Sheets(n).Range("A1:C1").AutoFilter 'Отпускаем фильтр с выбраного листа
 
Next 'Бежим к следующему листу
 Application.ScreenUpdating = True 'Включаем обновление экрана
End Sub