Ciao
vedi se questa fa al caso tuo
e espandila
Sub Nascondi_Celle()
Cells.EntireRow.Hidden = False
Dim UR As Long, I As Long, N As Long
UR = Range("A" & Rows.Count).End(xlUp).Row
N = Range("A1").Value
Application.ScreenUpdating = False
For I = N + 1 To UR
Sheets("Foglio1").Cells(I, 1).EntireRow.Hidden = True
Next I
Application.ScreenUpdating = True
End Sub
al limite sul pulsante
al click
Cells.EntireRow.Hidden = False
al doppio click
la macro sopra