Comibe Multiples Excel Tables

I have multiple Tables/sheets with Total Row in a workbook۔ I want to combine tables from sheets 1 to 10 (which may grow) without Total Row into an excel table. The resulting combine table should include a total amount row in Combine Sheet.

lDestRows).Resize(lSourceRows)

                    'Resize the destination table
                    loDest.Resize loDest.Range.Resize(1 + lSourceRows + lDestRows)

                    For Each lc In .ListColumns
                     Intersect(loDest.ListColumns(lc.Name).Range.EntireColumn, rDest).Value2 = lc.DataBodyRange.Value
                    Next lc
                    Set lc = Nothing
                    On Error Resume Next
                    Set lc = .ListColumns(lcSource.Name)
                    On Error GoTo 0
                    If lc Is Nothing Then Intersect(lcSource.Range, rDest.EntireRow).Value2 = ws.Name
                End If
            End If
        End With
    End If
Next lo