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
[Modificato da dodo47 27/06/2019 17:11]
Domenico
Win 10 - Excel 2016