Hej hej
Det finns bara en möjlighet jag kan tänka mig att köra allt i en stor loop, fast omvänd sökordning, och det är att först transponera din tabell, vilket känns lite onödigt. Jag hade nog löst det med att loopa listkolumnerna i yttre, och celler i varje listcolumn i inre loop.
/c
Sub foreachlistcol()
Dim lc As ListColumn
Dim mCell As Range
Dim l As ListObject: Set l = ActiveSheet.ListObjects(1)
For Each lc In l.ListColumns
'Här kan man byta till lc.range så får man ut rubreikerna på kolumerna med.
For Each mCell In lc.DataBodyRange
Debug.Print mCell
Next mCell
Next lc
End Sub