Questo e il il codice per aggiungere le righe , problema se eseguo la macro lo fa' solo per la prima come posso renderlo per tutte!!!!!



Sub aggiungi()
'
' aggiungi Macro
' Macro registrata il 06/09/2012 da Admin
'

'
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
End Sub