add a column label to a list object using VBA

Dear Experts:

I got a list object on the active worksheet named 'MyTable'.

I would like to enter the term 'PageBreak' as Column Label to the right of this list object (MyTable') using VBA

Example:

Before:
ItemNo    Description      Country     Address

After:
ItemNo    Description     Country     Address    PageBreak (Column Label 'PageBreak' to be added via VBA)


In other circumstances the list object 'MyTable' may have 10 columns not just 4 columns before the macro is run.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas