Use a button to transfer filtered data to destination cell

try: Sample 7.xlsm

contains:

Private Sub cmdCopy_Click()
    Dim xlTable As ListObject
    With Worksheets(2)
        For Each xlTable In Me.ListObjects
            xlTable.Range.Offset(1).Resize(xlTable.Range.Rows.Count - 1).SpecialCells(12).Copy
             .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial -4163
        Next xlTable
    End With
End Sub