VBA to merge two tables

[Dojorgen]

Hello again everyone

Looking for VBA on merging to tables together, i have a query that pulls in tables one below the other but would like for them all to be one table.

Example below, the columns are all the same but just need the bottom table to merge with the above table

any ideas

https://www.flickr.com/photos/160076805@N08/45359906532/in/dateposted-public/

I have data text in columns A through G in a table, right below that table is another and i was hoping to get VBA for merging the two tables together They would always be 'Table 1' queries as i would keep deleting the same table if that makes sense

 

[John_w]

Try this macro:

Public Sub Merge_Tables()

    Dim table As ListObject, firstTable As ListObject
    Dim headerRow As Range, tableRange As Range
    
    'Find first (top) table in active sheet
    
    Set firstTable = Nothing
    For Each table In ActiveSheet.ListObjects
        If firstTable Is Nothing Then Set firstTable = table
        If table.Range.Row < firstTable.Range.Row Then Set firstTable = table
    Next
        
    'Merge other tables in active sheet with first table
    
    For Each table In ActiveSheet.ListObjects
        If table.Range.Row <> firstTable.Range.Row Then
            Set headerRow = table.HeaderRowRange
            Set tableRange = table.Range
            table.Unlist
            headerRow.Delete
            firstTable.Resize Union(firstTable.Range, tableRange)
        End If
    Next
    
    firstTable.Name = "Table1"
    
End Sub