【VBA】開始行から最終行までを一括削除

Sub 最終行までを一括削除()

'開始行から最終行までを一括削除

Dim 開始行 As Long '開始行変数宣言
Dim 終了行 As Long '終了行変数宣言

開始行 = Range("P1").Value '開始行はP1セルの値
終了行 = Cells(Rows.Count, 1).End(xlUp) 'A列の最終行まで

Rows(開始行 & ":" & 終了行).Delete '開始から最終行まで削除

End Sub