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