VBAで特定のセル以外を消す方法

ちょっと意味がわかりにくてですが
VBAにて例えば、A1からJ1・・・とずらーっとヘッダーが並んでて
そのヘッダーを残し、それ以外のセルデータを消したいという事になりまして
いろいろ調べた結果、これでいけました

Worksheets("Sheet1").Range("A2", "J" & Cells.SpecialCells(xlCellTypeLastCell).Row).Clear

侍エンジニア塾さんの方で

Worksheets("Sheet1").Range("A2", Range("A2").SpecialCells(xlLastCell)).Clear

このやり方が提示されてまして、この方法でも消せるのですが
ヘッダーだけ残ってる場合にやると、何故かヘッダーも巻き添えにして消えてしまいました