MACRO PARA COPIAR HOJAS

Necesito algo especial, en una hoja de excel comun y corriente tengo 2 hojas, hoja1 y hoja2. Quiero crear una macro que me permita copiar esas dos hojas y me las mande al final, despues de que yo haga cambios en esas nuevas hojas creadas no se si se pueda con la misma macro copiar esas nuevas hojas y mandarlas al final, como le hago creo varias macros o que puedo hacer

Pues usa tu grabadora de macro, realiza los pasos que pides, y listo, ya tienes la macro.

Abraham

No se hace, porque cuando quiero hacer otra copia despues, es decir volver a ejecutar la macro, las nuevas copias yo las quiero hasta el final, y me las pone despues de las hojas originales, y no despues de las copias de las originales

Pues tienes razon, no me habia dado cuenta que la grabadora de macros no "captura" la opcion "mover al final". En todo caso, aqui va:

Sub copiar()
Sheets("Hoja1").Copy After:=Sheets(Sheets.Count)
Sheets("Hoja2").Copy After:=Sheets(Sheets.Count)
End Sub

Abraham

Mi libro consta de 2 hojas
Hoja1 y Hoja2
Quiero que la macro inicialmente me copie ambas hojas hasta el final de todas
quedaria Hoja1 Hoja2 Hoja1(1) Hoja2 (2), pero la macro que yo cree inicialmente me copia y hace esto, pero como indicarle que ahora ya no quiero copia de Hoja1 y Hoja2 sino de Hoja1(1) y Hoja2(2), y para que quede asi
Hoja1 Hoja2 Hoja1(1) Hoja2(2) Hoja1(2) Hoja2(2)

Como le hago, uso un modulo, o que hago

Pon esto en un modulo y listo:

Sub copiar()
Worksheets(Worksheets.Count).Copy After:=Sheets(Sheets.Count)
Worksheets(Worksheets.Count - 2).Copy After:=Sheets(Sheets.Count)
End Sub

Abraham

Ultima duda, lo que hace es esto
originalmente esta asi
hoja1 hoja2

cuando corro esa macro en dicho modulo hace esto
hoja1 hoja2 hoja2(2) hoja1(2)

y despues vuelvo a correrla
hoja1 hoja2 hoja2(2) hoja1(2) hoja1(3) hoja2(3) hoja2(4) hoja1(4)

habra algun modo de que esto quede asi
hoja1 hoja2 hoja1(1) hoja2(2) hoja1(3) hoja2(3) hoja1(4) hoja2(4)

MUCHISIMAS GRACIAS DE ANTEMANO

Te consulté por la numeración automática lo cual me enviaste un ejmplo ejm_fact_simple, en el cual me sirve. Ahora te pregunto como hago para que antes de limpiar los rangos, me copia la hoja en otro libro ó en el mismo.

Gracias