Фильтрация и копирование данных с нескольких листов на один лист

Question

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

Может кто-нибудь, пожалуйста, помогите мне, почему это происходит!

Sub apply_autofilter_across_worksheets()
    Dim xWs As Worksheet
    Dim x As String

    On Error Resume Next

    For Each xWs In Worksheets
        If xWs.Name <> "Report" Then            
            xWs.Range("A1").AutoFilter 14, ">0"                
            xWs.Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 17).Select                
            Selection.Copy                
            Worksheets("Report").Activate                
            Worksheets("Report").Range("x1").Select                
            Worksheets("Report").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues                            
        End If        
    Next
End Sub