Righe standard in automatico

Buongiorno,
Partendo da una vecchia discussione e dalla mia esigua esperienza sono riuscito a farmi una macro che inserisce sotto ogni riga esistente N righe(in questo caso 4)

Sub inserisce()
Uriga = Cells(Rows.Count, "A").End(xlUp).Row
For N = Uriga To 1 Step -1
Rows(N + 1 & ":" & N + 4).Insert
Next N
End Sub

la faccenda che non capisco come approcciare è questa:
visto che le mie 4 righe dovranno contenere tutti gli stessi dati, come faccio ad avere queste righe compilate?
partendo da:
1
2
3
4

io vorrei ottenre:
1
pro
pur
sor
pre
2
pro
pur
sor
pre
3
pro
pur
sor
pre
4
pro
pur
sor
pre

Non allego un file di esempio perchè mi pare abbastanza chiaro....
Grazie a chi mi vorrà aiutare.

ABCDEF@Excel, 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

---

🤩 Grazie Mille!
avrei un'altra domanda: se metto i dati in colonna B, e cambio di conseguenza il valore dove punta la macro, i dati "pro""pur""sor"
"pre" vengono scritti in colonna A.se i volessi mettere in colonna B?🤔

Ex Cells(n + 1, 1) = "pro"
Cells(n + 1, 2) = "pro" (due sarà la colonna)