>>25

selectしなくてもいいっしょ

Sub Macro1()
Rows("10001:" & Rows.Count & "").EntireRow.Hidden = True
End Sub