Is it possible to Loop through Tables and Copy TableHeader ?

I am trying to loop trough some Tables that have random Headers,

My task will be:
Loop through tables
Copy Header, Paste values in other sheet
Copy ListColumns(1).DataBodyRange, Paste values in other sheet

Just in case, i wraped it as CODE

But I am stuck in the header part.
I hope one of you experts know a way to solve this.

Thanks for having a look

Use .ListObjects properties, e.g.:
1) .Count
2) .Name
3) .HeaderRowRange
4) .DataBodyRange / .ListRows / .ListColumns / .Range

Thanks porucha

I am just a simple Newbee in VBA so I don't know what you meen?
Can you explain please.
I have put the code I have below so far.

Sub LoopThroughTables()

'PURPOSE: Loop through each table in the Sheet("BEREGNING") and copy values in Column("A") and paste in Sheet("Tilbud2")

Dim Table As ListObject
Dim SourceSheet As Worksheet
Dim TargetSheet As Worksheet
Dim LastRow As Long

'Set Sheets As Source and Target Sheet (Copy and Paste)
Set SourceSheet = ThisWorkbook.Worksheets("BEREGNING")
Set TargetSheet = ThisWorkbook.Worksheets("TILBUD2")

'Find last Row with Data
LastRow = TargetSheet.Range("A" & Rows.Count).End(xlUp).Row

        'Loop through each table on a sheet
        For Each Table In SourceSheet.ListObjects
        
        'Find TableHeader and copy
        SourceSheet.ListObjects("table" * "").HeaderRowRange.Copy
        
        'Paste TableHeader in TargetSheet, Find lastRow with Data from ("TableValuesFromSheets") and Offset(3, 0)
        '("TableValuesFromSheets") is TargetSheet.Range("A9")
        TargetSheet.Range("TableValuesFromSheets").End(xlUp).Offset(3, 0).PasteSpecial xlPasteValues 'Font.Bold = True
        
        'Copy Column"A" in DataBodyRange
        Table.ListColumns(1).DataBodyRange.Copy
        
        'Paste Value from Column "A" in DataBodyRange in TargetSheet, Find lastRow with Data from ("TableValuesFromSheets") and Offset(1, 0)
        '("TableValuesFromSheets") is TargetSheet.Range("A9")
        TargetSheet.Range("TableValuesFromSheets").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Font.Bold = False

Next Table

'Do rest of the code

End Sub

Thanks Richard
I will do that.

PW= *DM2285dm2018* (Sheets are protected)
Module:= TableCode
Sub:= LoopThroughTables()
Sheets "BEREGNING" And "TILBUD2"


1.PNG2.PNG

Thanks for taking a look

It is a workbook for calculating buiding tasks "Sheet BEREGNING"
When all the tasks are put in the sheet I want to be able to print out a Offer for the customer.

I thought I had explained it in the comments in the sub and looking at the picture with comments I hoped it was clear.
I am shure to make mistakes as I am just starting to learn VBA.
But I know I will get there in time, a little help getting on the right track will be appreceated