00 20/11/2019 05:45 
Sub inserisce()
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For n = Uriga To 1 Step -1
    Rows(n + 1 & ":" & n + 4).Insert
    Cells(n + 1, 1) = "pro"
    Cells(n + 2, 1) = "pur"
    Cells(n + 3, 1) = "sor"
    Cells(n + 4, 1) = "pre"
Next n
End Sub