У меня есть таблица, в которой первые 15 столбцов содержат информацию о типах свойств и выполненных работах. Следующие столбцы относятся к месяцам, в которые выполняется работа, и изначально установлены на 12 месяцев. Во-первых, я хочу изменить заголовки, чтобы они соответствовали месяцам, которые, как полагают, охватит работа (например, с мая 2020 года по апрель 2021 года), и у меня возникли проблемы с кодом, просто чтобы изменить заголовок на основе даты, введенной через поле ввода. Однако иногда работа длится более 12 месяцев, и мне нужно добавить столбцы в таблицу, и я хочу быть в состоянии гарантировать, что последующие даты заголовков будут следовать. Я могу вставить столбцы, где это необходимо, и с правильным месяцем / годом, но мне нужно использовать строку над таблицей для хранения месяца / года.
Заголовок таблицы в датах: 
Код для ввода нового столбца:
This_Month = Format(WorksheetFunction.EDate(Last_Month, 1), "mmm/yyyy")
Str_This_Month = UCase(Format(This_Month, "mmm/yyyy"))
tbl.ListColumns.Add(Insert_Col).Name = Str_This_Month
Спасибо за помощь