ちょっと意味がわかりにくてですが
VBAにて例えば、A1からJ1・・・とずらーっとヘッダーが並んでて
そのヘッダーを残し、それ以外のセルデータを消したいという事になりまして
いろいろ調べた結果、これでいけました
Worksheets("Sheet1").Range("A2", "J" & Cells.SpecialCells(xlCellTypeLastCell).Row).Clear
侍エンジニア塾さんの方で
Worksheets("Sheet1").Range("A2", Range("A2").SpecialCells(xlLastCell)).Clear
このやり方が提示されてまして、この方法でも消せるのですが
ヘッダーだけ残ってる場合にやると、何故かヘッダーも巻き添えにして消えてしまいました