cepapo13

calvuch respondió: Prueba con esto: Dim LastRow As Long Dim LastRow1 As Long LastRow = Range("l" & Cells.Rows.Count).End(xlUp).Row LastRow1 = Range("a" & Cells.Rows.Count).End(xlUp).Row Range("A" & LastRow1 + 1).Select Range("A" & (LastRow1 + 1), "A" & LastRow) =...

Elsa Matilde respondió: Como la consulta ya lleva varios días, confirmame si aún necesitas el ajuste a tu rutina...