不要行の削除

Sub last_seru()
' 65536行から上に見て,最初にデータがある行+10目から65536行までを行全体削除する。
'　ほとんどのシートは、6万行も使用しない.必要最低限の行数のみ表示させたほうがファイルサイズが小さくなり,エクセルも軽快に動くようである.
Dim seru As String
Dim gyou As String

seru = Range("a65536").End(xlUp).Address()
Range(seru).Select
gyou = Trim(Str(ActiveCell.Row + 10))
Range("a1") = seru: Range("b1") = gyou
Range("a" & gyou & ":a65536").Select
Selection.EntireRow.Delete

End Sub