00 09/05/2015 09:10
Ciao
sempre nello spirito del "risparmio" invocato dall'amico Giuseppe, che ne dite di: 

 Worksheets("Gen").Cells(y, 1).EntireRow.Insert
senza bisogno di scoprire e nascondere il foglio?

saluti
Domenico
Win 10 - Excel 2016