Move unknown number of headings into cells in new columns

Hi,

I have a sheet with a list of transactions. The headings for each account is listed above the transactions. In order to create a list, I need to move each heading to its own new column on each transaction line. These could be the headings:

Account
S3
S4
G1
G2

They are following by a number of transactions, each in a separate row. All transaction rows need to contain the headings for that specific account.

I have figured out how to make it work when there are 5 headings, however, if my colleagues should also benefit from this macro, it needs to be changed so that there can be between 5 and 8 headings.

I have also figured out how to create the right number of new columns, but I struggle with copying the headings to the cells in the new columns. This is the way I have done it when knowing the number of headings:

Please Login or Register  to view this content.

How do I do this when I do not know the number of headings?

Best regards,
LKottal