Dante Amor respondió:
[Ho la Iris y bienvenida a TodoExpertos. Te muestro otra opción. Puedes cambiar esta línea: If Cells(i, 1) <> "" Then Por esta, utilizando la propiedad DataBodyRange de la tabla: If TablaOrigen1.DataBodyRange(i, 1) <> "" Then De esa manera el...