Dante Amor respondió:
H o l a: Quieres decir, que tienes esto en la hoja1: Y quieres esto en la hoja2: Ejecuta la siguiente macro Sub CopiarCeldas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear j = 1 For i = 1 To h1.Range("A" &...