Each ListColumn object represents a column in the table.
A name for the column is automatically generated. You can change the name after the column has been added.
Use the ListColumns property of the ListObject object to return the ListColumns collection.
The following example adds a new column to the default ListObject object in the first worksheet of the workbook. Because no position is specified, a new rightmost column is added.
Set myNewColumn = Worksheets(1).ListObject(1).ListColumns.Add