最終行まで削除

Sub 最終行まで削除()

    Dim LastRow As Long

    'A列の最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '5行目から最終行までを一括削除
    Range("A5:A" & LastRow).EntireRow.ClearContents

End Sub