Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Prova:
Sub Inserisci()
Dim lngR As Long
For lngR = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
Cells(lngR, 1).EntireRow.Resize(6).Insert xlDown
Next lngR
End Sub
Ciao.