Repetir filas según el valor de una columna

[montsefoto]

Buenos días,

necesitaba una solución para poder repetir cada fila tantas veces como indica el valor de la columna H.
Adjunto tabla.
Gracias de antemano.

 

[Macro Antonio]

Prueba esta macro:

Sub Duplicar()
Application.ScreenUpdating = False
For x = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
   For n = 1 To Range("H" & x)
      Rows(x).Insert...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[montsefoto]

no me la ejecuta, el depurador se detiene en
Appplication.ScreenUpdating = False

 

[montsefoto]

Nada, ya está, ya vi el error, que sobraba una p.
Funciona a la perfección.
Muchsísimas gracias.