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