CurrentRegion と Offset を組み合わせて楽をする

Excelの神髄（https://excel-ubara.com/excelvba1r/EXCELVBA508.html）
にて表の範囲を削除するための合理的なコードが解説されているので、メモ代わりに投稿します。こちらのサイトは、Excelのことでわからないことがあったら、よく参考にさせていただいています。当サイトの運営者さま、いつもありがとうございます。

CurrentRegion で値が入っているセル範囲を指定して、Offset で1行ずらします。
Do While とか For Next でも同じことはできますが、この書き方なら1行で書けます。途中に空白の行がある場合はすべて拾いきれないので、空白行がある可能性のある表だとEnd(xlUp)で最終行を指定して、For Next でループする必要があると思います。ただし、空白セルがあっても同じ行の他の列に値が入っていれば、CurrentRegion と Offset で対応できます。

Sub reset()
 
  Sheets("シート名").Range("B2").CurrentRegion.Offset(1, 0).Select

End Sub