aggiungere righe in automatico in excel

[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