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