The following macro inserts a new sheet to your workbook and lists all Excel defined Tables and corresponding Table headers in the active workbook.
'Declare variables and data types
Dim tbl As ListObject
Dim WS As Worksheet
Dim i As Single, j As Single
'Insert new worksheet and save to object WS
Set WS = Sheets.Add
'Save 1 to variable i
i = 1
'Go through each worksheet in the worksheets object collection
For Each WS In Worksheets
'Go through all Excel defined Tables located in the current WS worksheet object
For Each tbl In WS.ListObjects
'Save Excel defined Table name to cell in column A
Range("A1").Cells(i, 1).Value = tbl.Name
'Iterate through columns in Excel defined Table
For j = 1 To tbl.Range.Columns.Count
'Save header name to cell next to table name
Range("A1").Cells(i, j + 1).Value = tbl.Range.Cells(1, j)
'Continue with next column
'Add 1 to variable i
i = i + 1
'Continue with next Excel defined Table
'Continue with next worksheet
Sheet1, 2 and 3 contain three tables.
Go to "Developer" tab
Click "Macros" button
Where to copy macro
Press Alt+F11 to open the VB Editor
Click "Insert" on the menu and then click on module.
Copy above VBA code and paste to code module, see image above.