копирование ячеек после автофильтра

[ggetbraine]

Здравствуйте!

Я написал макрос, которые делает следующее:

1) применяет автофильтр к каждому листу на выбранной книге
2) копирует выделенный диапазон на новую книгу

Код макроса:

m = 2 
For i = 1 To work_book.Worksheets.Count 
    With work_book.Sheets(i) 
        If (.UsedRange.Rows.Count > 1) Then 
             'apply filters
            .UsedRange.AutoFilter field:=2, Criteria1:=array_of_account_numbers, Operator:=xlFilterValues 
            .UsedRange.AutoFilter field:=1, Criteria1:=array_of_debit_or_credits, Operator:=xlFilterValues 
             'select only visible cells after autofilter is applied
            On Error Goto a 
            m = destination_workbook.Sheets(1).UsedRange.Rows.Count + 1 
            Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy destination_workbook.Sheets(1).Range("A" & m) 
a: 
        End If 
    End With

Проблема заключается в том, что помимо выделенного диапазоно после автофильтра, макрос в дополнении копирует первые три строчки с каждого листа. Подскажите, как исправить данную проблему?