chocobogo,
Mi macro trabajará para cualquier gama del tamaño. Usted no necesita saber las dimensiones antes de funcionar. Estoy teniendo apuro el transferir de su archivo. Viene adentro como un archivo de cierre relámpago y se abre en un formato extraño del xml. Utilicé los nombres y las gamas de la hoja que usted puso en su primer libro de trabajo. Si usted presiona F8 caminará usted con el siguiente alinea en la macro. Si usted lo presiona otra vez permitirá que usted vaya al siguiente alinea. Esto debe ser provechoso en usted que identifica donde el código se está rompiendo. Si los nombres de la hoja son un problema, o usted quiere cambiar los nombres más adelante, cambiar los nombres en cotizaciones a los números tales como 1, 2, etc…. Cuando usted está en la macro ir al menú de la eliminación de errores y mirar las opciones. F5 funcionará con el programa entero. F8 permite que usted camine paso-en.
Si usted quiere tener 100, 1000, 10000, tipos que esta macro trabajará. Hacer mientras que el lazo no aparece ser la mejor estructura para este problema. Me fui mi para el lazo en los comentarios. Como usted puede ver funciona con 1520 veces. Utilicé este tipo de lazo para imaginar donde mover la fila del FINAL. El código se estrella si su no adentro la fila correcta porque funciona infinitely/to sobresale límites y estrella el uso.