マクロで集計した最新データを出力する際、ヘッダは残し、データ部分をすべて削除したい場面で利用することができます。
SpecialCells(xlLastCell)で解決する
解決方法はいくつかありますが、データ部分の起点を直接指定できるSpecialCells(xlLastCell)を使って削除するのが直感的に一番わかりやすいと思います。
サンプルプログラムを確認する（コピペOK）
Sub sample()
Dim r As Range
Set r = Range("a2") 'データ部分の左上の起点を指定する（データ部が3行目ならばa3を指定）
Range(r, r.SpecialCells(xlLastCell)).ClearContents
End Sub
