have multiple tables on separate sheets, how to combine

i have this routine that is not working on tables. How can I copy tables from multiple sheets and have them combine into one?

this is not working:

With Sheets("Purchase Requisitions")
        .Range("A1").CurrentRegion.Copy
        If Sheets("Summary").Range("A1") = "" Then
            Sheets("Summary").Range("A1").PasteSpecial xlPasteValues
        Else
            Sheets("Summary").Range("A" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues
        End If
    End With

the problem is that this copies only the text and not the structure of the table (like banded rows, header row with drop downs, etc)

so i did some research and found this link

i expected this snippet of code to work, but i get an error that the subscript is out of range. i went to the "Purchase Requisitions" sheet and verified the name of the table so why isn't this working"

ActiveSheet.ListObjects("Table 19").Range.Select
Sheets("Summary").Range("A" & Rows.Count).End(3)(2).PasteSpecial xlPasteValues

the sheets that have the tables are: "Purchase Requsitions", "Outstanding POs", "Open POs", "Closed POs" and "Archived POs". All the tables go to the "Summary" sheet.