Adriel Ortiz Mangia respondió:
[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") ' Hoja1 Set h2 = Sheets("Hoja2") ' Hoja2 ' j = 2 For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row If...