vba - Excel でマクロを使用してテーブルに列を追加するときに列ヘッダーを設定する

Question

そのため、テーブル内の他の列に基づいてテーブルに列を自動的に追加するこのマクロに取り組んでいます。したがって、機能は次のとおりです。

この表には、「CY 2010」から「CY 2020」という見出しの列がいくつかあります。これらの年は必然的に変化します。次に、「CY」列ごとにテーブルに列を追加します。さらに、これらの列のヘッダーを年と一致させたいのですが、「Content Volume YEAR」とします。

現在、列を適切に追加する次のコードがあります。

Sub AddContentValueColumns()
'
' AddContentValueColumn Macro
' Adds yearly vehicle content value columns to Propulsion data table.
'

'
    last = [A1].Value               ' cell contains number of "CY" columns in sheet

'   Debug.Print (last)

    For Count = 1 To last
        Dim oSh As Worksheet
        Set oSh = ActiveSheet
        oSh.ListObjects("PropTable").ListColumns.Add
    Next Count

End Sub

これは列を追加するために機能しますが、現在、「CY 2021」などのラベルが付いたテーブルの最後に列を追加するだけです.

では、上記のコードを変更して列に名前を付けるにはどうすればよいでしょうか?

ありがとう。

-ショーン