Macro per aggiungere 4 righe ogni riga mantenedo gli stessi valori della prima

Ciao a tutti, mi sono iscritta da poco perchè ho alcuni problemi da risolvere con i miei dati su excel. In pratica sto cercando una macro che mi permetta di aggiungere automaticamente quattro righe per ogni riga (tranne la prima), copiando esattamente ciò che c'è scritto nella prima riga. Faccio un esempio semplificato di quello che ho:

Temperatura Pressione
12 1021
10 1019
11.5 1023.2

Io vorrei ottenere questo:

Temperatura Pressione
12 1021
12 1021
12 1021
12 1021
12 1021
10 1019
10 1019
10 1019
10 1019
10 1019
11.5 1023.5
11.5 1023.5
11.5 1023.5
11.5 1023.5
11.5 1023.5

Ho 5 file ognuno con circa 5000 dati e mi sta esasperando farlo a mano 🙈. Spero possiate aiutarmi, grazie!🙏

ciao
dati a partire da riga 1:

ripeti = 4
For j = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
Rows(j).Copy
Rows(j).Resize(ripeti).Insert
Next

edit: se in riga 1 hai intestazioni:

....To 2 Step -1

saluti

dodo47, 27/06/2019 15.42:

---

ciao
dati a partire da riga 1:

ripeti = 4
For j = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
Rows(j).Copy
Rows(j).Resize(ripeti).Insert
Next

edit: se in riga 1 hai intestazioni:

....To 2 Step -1

saluti

---

Ho appena provato e funziona! Ti ringrazio tantissimo mi sei stato di grande aiuto!!😊