Visualizzare n righe in base al numero n inserito in una cella

Ciao a tutti.Le mie conoscenze su excel sono abbastanza limitate! Vedendo in giro quel che si puo fare ho ridimensionato l'opinione su me stesso!
Vi illustro cosa avrei necessità di fare:
1 file excel con 5 fogli.
il primo foglio è un immissione dati, gli altri 4 calcolano in base ai dati immessi nel primo.

Tutti i fogli sono strutturati con "x" tabelle. Tutte queste tabelle hanno righe che vanno da 1 a n, e tutte le righe contengono formule che pescano dati nella riga stessa e/o nel primo foglio di lavoro (immissione dati)

Siccome devo poi fare delle stampe di tutti questi fogli, e siccome a seconda dei casi che si presentano può capitare che a volte abbia necessità di utilizzare solo 3 righe per ogni tabella oppure a volte 50 righe per ogni tabella vorrei trovare un modo che faccia cio:
inserisco ad esempio nella casella A1 del primo foglio un numero n ed in automatico tutte le tabelle dei 5 fogli si compattano o estendono a "n" righe, in modo tale che il valore inserito in A1 in pratica mi determini di quante righe sono fatte le tabelle che ho sparse per i fogli.
utopia ?!
grazie a tutti in anticipo

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