Aggiungere righe in automatico excel 2003

[Cedamido]

Ho un elenco molto lungo dal rigo A663 al rigo A802, dovrei aggiungere 5 righi per ogni numero, per esempio A663 devo aggiungere 5 righi come pure A664 ecc ecc
Grazie

[Flash30005]

Prova con questa macro

Codice: Seleziona tutto

Sub InserisciRighe()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 664 Step -1
For Righe = 1 To 5
    Rows(RR & ":" & RR).Insert Shift:=xlDown
    Next Righe
Next RR
End Sub

Ciao

[Cedamido]

OK grazie.