neicos respondió:
Primero de todo, antes de probarlo, he estado ojeando tu código, hay pasos que puedes no volver a repetirlos, veo que siempre usas el mismo range, las mismas variables y lo pone en el mismo sitio, poniendo solo una vez el código escribirá en la hoja...