VBA（エクセル）でテーブルデザインの見出しをOFFにしたい

Question

前提・実現したいこと

タイトルにある，テキストからインポートしたときに自動でつくデーブルデザインの見出しをoffにしたいと考えています．
最終的には，その見出しがある行の削除を試みています

該当のソースコード

Public Sub DeleteLine()
    '使わない行の削除を行う
'    Debug.Print "使わない行の削除"
    
    Debug.Print Cells(1, 1)
    
    If Cells(1, 1) = "Column1" Then
'        Rows(1).Delete
'        Range(1 & ":" & 1).Delete
    End If
    
    Range("R:AD").Delete
    Range("J:O").Delete
    Range("G:G").Delete
    Range("D:E").Delete
    
End Sub

試したこと

1行目に見出しがはいっているために，range("1:1").deleteをしたのですが，そもそも見出しをさくじょすることができないそうだったので，解除をしたいと思いました．
vbaのリファレンスを読んでも自分の行いたい関数が見当たりません．
よろしくお願いします

補足情報（FW/ツールのバージョンなど）

インポートした時につく，デーブルデザインでの見出しは以下の画像になります．

Excel 365

Comments

[meg_]

「テキストからインポートしたときに自動でつくデーブルデザインの見出し」とは何のことでしょうか？

[ayousanz]

画像を追加しました

Answer 1

リボンの[データ]タブ→[データの取得と変換]ブロック→[テキストまたはCSVから]でインポートしたということでしょうか。
（Excel2019の場合ですので、他のバージョンだと少し違うかも）

マクロの記録で、下記の操作を記録すればどうでしょうか。

1. [テーブルデザイン]→[テーブルスタイルオプション]ブロックの[見出し行]のチェックを外す
2. 見出し行が消えるのでその行を選択して削除。

下記のようなマクロが出来上がるので

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    ActiveSheet.ListObjects("Test").ShowHeaders = False
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
End Sub

これから冗長部分を削除して、

Sub 見出し削除()
    ActiveSheet.ListObjects(1).ShowHeaders = False
    Rows("1:1").Delete Shift:=xlUp
End Sub

Comments

[ayousanz]

回答ありがとうございます．
こちらで一度試してみます
listObjectのshowHeaderだったのですね！