ExcelVBA

値の入っているA列の最終行以降を削除

値の入っているA列の最終行以降を削除
※)10000行までを削除対象とする

Excel-VBA
Dim 最終行 As Long
最終行 = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(最終行 & ":10000").Delete