aggiungere righe in automatico in excel

[Salvanet]

Originariamente inviato da andreaciao_22
una roba del genere?

Sub CommandButton1_Click
    Dim Riga As Integer
    Riga = PrimaRigaVuota
    Cells(Riga - 1, 1).EntireRow.Copy
    Cells(Riga - 1, 1).Insert xlUp
    Cells(Riga, 1).PasteSpecial
    Application.CutCopyMode = xlCopy
End Sub

Function PrimaRigaVuota() As Integer
    PrimaRigaVuota = 1
    Do While Not Len(Trim(Cells(PrimaRigaVuota, 1).Value)) = 0
        PrimaRigaVuota = PrimaRigaVuota + 1
    Loop
End Function 

Ciao andrea, scusami se ci ho messo tanto a provare il codice che mi hai postato, ma sono stato via per un po'.
Ad ogni modo il codice è esattamente quello che cercavo, l'unica cosa è che io dovrei aggiungere un gruppo di righe per volta non una sola e partendo da una riga che stabilisco io.
Inoltre dovrebbero aggiungersi solo le funzioni contenute nelle celle e la loro formattazione e non i valori.
Potresti indicarmi i parametri da modificare per apportare queste modifiche?
Grazie mille