copiar hoja unueva

¡ Hola !\nComo estas? mira tengo un archivo con 50000 lineas y quiero tomar 500 lineas copiarlas a una nuevo archivo y luego grabar este archivo en disco duro, pero como son 100 archvos necesito que cuando la macro grabe vaya asignadole un ...