Excel - UNA DUDA MAS

Utilizo esta formula para hacer una copia de un formato que tengo y en P12 se va agregando un numero conforme haga copias de dicho Formato

Sub Ejecutar()
ContarHojas = ThisWorkbook.Worksheets.Count
Sheets("Formato").Copy After:=Sheets(ContarHojas)
[P12] = ContarHojas + 1
Sheets(ContarHojas + 1).Select
Range("L3:P3").Select
Selection.ClearContents
Range("E12").Select
Selection.ClearContents
Range("C16").Select
Selection.ClearContents
Range("D20:D23").Select
Selection.ClearContents
Range("F20:F23").Select
Selection.ClearContents
Range("G20").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=18
Range("A47:D47").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-27
Range("L3").Select
End Sub

Pero como cambiarle a la hoja para que no me haga nada mas una copia de la hoja Formato, si no de la hoja en la que me encuentre posicionado

Debe susar esto:

ActiveSheet.Copy After:=Sheets(ContarHojas)

Abraham

Esto lo inserto en el codigo que tenia anteriormente????

Sip, en el momento en que quieras que se copie la hoja activa.

Abraham