こういう表があってこれをリストボックスにヘッダー付きで表示したいと思うじゃない

ユーザーフォームにリストボックス追加してサクサクっと書くじゃない

設定されないのよねぇ・・・って思っていたけどまぁ最終的にやりたいことはできてたから放置してたんですよ。

RowSourceプロパティに指定したセル範囲の１行上のセル範囲が、見出しとして使用されます。

引用元：リストボックスの値リストに列見出しを表示する設定ColumnHeadsで見出しが設定できない理由（Excel VBA)

なんだってー！？！？
やってみましょう

Sub korede()
Dim re As Range
Set re = Range(Range("A2"), Range("A1").CurrentRegion.SpecialCells(xlCellTypeLastCell))
UF1.ListBox1.RowSource = re.Address
UF1.ListBox1.ColumnHeads = True
UF1.Show
End Sub

でけた！！

これは一度配列をワークシート作って書き出すしかないのかなぁって感じ
okwave.jp

参考：
happy-tenshoku.com