Aiuto per copiare e duplicare intervallo di righe più volte

https://www.freeforumzone.com/mobile/d/11672326/Listbox-ricerca-con-testo/discussione.aspx
Solo per dirTi che nel post 29/12/2019 12.56, ho scritto ...Set sh1 = ActiveWorkbook.Worksheets("Elenco Prezzi2") per evitare l'errore in apertura.
Adesso rimodifico il pensiero, basta modificare in Workbook_Open
Sub Workbook_Open()
Sheets("Elenco Prezzi2").Activate
End Sub
Poi mettere in SetFg()
Set sh1 = Worksheets("Elenco Prezzi2") ecc ecc
Vedo diversi altri errori (tipo la convalida dati in B15 con tanti spazi), inoltre il fatto che NON dichiari mai le variabili

Riguardo la domanda (il bottone, a me in errore)
Sub DoppiaMacro3()
Dim tot As Long 'variabile
If Controllo = False Then
' EX (copy) e poi in cella selezionata incolla per aggiungere 10 righe
Controllo = True
Else
tot = InputBox("quante righe aggiungere", 0) ' ho valorizzato la variabile
' EX (copy) e poi in cella selezionata incolla per tot righe
Controllo = False
End If
End Sub