Luis Mondelo respondió:
Te adjunto la macro para conseguirlo Sub proceso() 'por luismondelo Range("b1").Select Do While ActiveCell.Value <> "" ubica = ActiveCell.Address Range(ActiveCell, ActiveCell.End(xlDown)).Copy Range("b200000").End(xlUp).Offset(1, 0).PasteSpecial...