Aiuto per copiare e duplicare intervallo di righe più volte

>>>che pero' mi ripeta la "sub 104"
Credo non possa funzionare, perchè nel Tuo codice (strambo) serve una cella già selezionata che al secondo passaggio non esisterebbe

Non capisco cosa intendi per...
>>>si incolleranno le voci con i collegamenti attivi negli intermezzi delle voci..

>>>ActiveCell.Offset(-8, 0).Rows("1:9").EntireRow.Select
Ammettiamo che hai selezionato la cella A15 in teoria l'area da copiare sarebbe A7:I15 ??? Mà dove va copiata ???

Ps. Non riesco capire il Tuo VBA, forse qualche altro utente riesce meglio di me