Имя заголовка таблицы VBA не изменяется

Question

В Excel с макросами каждый раз, когда нажимается кнопка, в существующую таблицу добавляются 2 новых столбца и устанавливается заголовок этих столбцов. Это работает для первого добавления, но не может изменить имя после этого, даже если столбцы добавляются по мере необходимости.

Sub Add()

Dim lst as ListObject
Dim h as Long
Dim hdrs

hdrs = Array("Value 1", "Value 2")

Set lst =  ActiveSheet.ListObjects("Table1")

With lst
    For h = 0 To 1
        .ListColumns.Add
        .ListColumns(.ListColumns.Count).Name = hdrs(h)
    Next h
End With

End Sub