Vba 在excel查询中包括注释列

我希望在事件管理站点的查询旁边包含一个notes列，并确保标题行的大小保持不变

这是我到目前为止所拥有的。当我运行它时，它在表中包含注释，因此它们将刷新并跟踪不同的事件状态，而不会丢失注释，但我编写它的方式不允许新行

标题行大小不是非常重要，但这根本不起作用

任何帮助都将不胜感激

Sub IncludeNotes()
'
' IncludeNotes Macro
'

'
    Application.CutCopyMode = False
    ActiveSheet.ListObjects("Table_query").Resize Range("$A$1:$X$506")
    Range("Table_query[[#Headers],[ID]]").Select
    ActiveWindow.ScrollColumn = 1
    Rows("1:1").Select
    Selection.RowHeight = 65

End Sub

---

下面是经过重构的代码，将ListObject扩展一列，而不更改行数。还整理代码，删除不必要的选择等，并调整标题行的大小，而不管它位于哪一行

Sub IncludeNotes()
    Dim lo As ListObject
    Application.CutCopyMode = False
    Set lo = ActiveSheet.ListObjects("Table_query")
    lo.Resize lo.Range.Resize(, lo.Range.Columns.Count + 1)
    lo.HeaderRowRange.RowHeight = 65
End Sub