Excel - COPIAR HOJA CON CONTEO SUBSECUENTE

Necesito de su ayuda,
tengo un libro normalito con una Hoja1 y en la celda A1 el numero 1, quiero copiar con una macro dicha Hoja1 y mandarla al final y que en A2 aparezca el numero 2, despues cuando vuelva a ejecutar la macro que me haga una copia una vez mas de la Hoja1 y que en A1 aparezca el numero 3, y asi sucesivamente, GRACIAS:

Sub Crear()
ContarHojas = ThisWorkbook.Worksheets.Count
Sheets("Hoja1").Copy After:=Sheets(ContarHojas)
[a1] = ContarHojas + 1
Sheets("hoja1").Select
End Sub

Abraham

Por ultimo con este asunto, con lo que me pasaste se realiza lo que te pedi, pero ya por ultimo como le hago para que quede activa la hoja que se acaba de copiar

Algo mas, a parte de que deseo que se quede activa la hoja la cual es la copia de la original, como le hago para que el focus o el cursor quede en la celda A2

Sub Crear()
ContarHojas = ThisWorkbook.Worksheets.Count
Sheets("Hoja1").Copy After:=Sheets(ContarHojas)
[a1] = ContarHojas + 1
Range("a2").select
End Sub

Listo

Abraham