[VBA] Inserimento riga in Excel

[kobalt]

buongiorno,
sono nuovo del forum e non sono pratico di vb

ho trovato un pezzo di codice su questo forum e l'ho modificato a piacere.

ho una riga con delle formule (la riga n°3)
eseguendo la macro vorrei che alla riga 5 si crei una copia delle formule della riga 3.

così com'è la mia macro fà l'operazione ma inserisce la nuova riga sopra (cioè, fa slittare in alto la riga invece che in basso; quindi la riga 3 slitta alla 5)

il mio foglio è una tabella e ho bisogno di compilare la riga 3, poi eseguire la macro, compilare la riga 5, eseguire la macro, compilare la 7...e così via...

dovè l'errore...???

spero di esser stato chiaro.

Sub nuova_riga()
'
' nuova_riga Macro
' Macro registrata il 24/09/2012 da pc-monica
'Sub CommandButton1_Click
    Dim Riga As Integer
    Riga = PrimaRigaVuota
    Cells(Riga - 1, 1).EntireRow.Copy
    Cells(Riga - 1, 1).Insert x1up
    Cells(Riga, 1).PasteSpecial
    
    Selection.Insert Shift:=xlDown
    
    
End Sub

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

[MItaly]

Ho messo un titolo più significativo, aggiunto il tag del linguaggio e formattato il codice con i tag [code] ... [/code]; in futuro ricordati di impostare correttamente il thread fin da subito (e magari dai una letta al regolamento ).