Luis Mondelo respondió:
Te mando la macro que necesitas para resolverlo Sub proceso() 'por luismondelo Range("a1").Select Do While ActiveCell.Value <> "" ubica = ActiveCell.Address valor = ActiveCell.Value veces = ActiveCell.Offset(1, 0).Value For x = 1 To veces...