Dim Table As ListObject Set Table = Sheet1.ListObjects("Table1") Table.ListColumns.Add 2 Table.HeaderRowRange(2) = "New header"