Excel - COPIAR HOJAS Y CONTABILIZAR

Este codigo no se ni a quien se lo copie de aqui, jajajajaja

Pero lo tome para mi, y quize adaptarlo, pero no funciona.

Sub Copiar()
ContarHojas = ThisWorkbook.Worksheets.Count
ActiveSheet.Copy After:=Sheets(ContarHojas)
[I4] = ContarHojas + 1
Sheets(ContarHojas + 1).Select
End Sub

Pero lo que realmente necesito es esto.

Tengo Hoja1 y Hoja2 llamadas A y B

Quiero que al momento de copiar A, me haga una copia A2 y que en I4 se ponga el numero 2, ya que originalmente esta el numero 1. y despues hacer otra copia estando en A2 y que en I4 se ponga el numero 3, asi mismo con la Hoja B.

Sino me equivoco, ese codigo es mio, pero, obviamente si esta en el foro, es para todos!!!! Sobre tu pregunta. Una cosita, has intentado hacerlo tu mismo???? Pues si ya estas usando macros, supongo, que algo estaras leyendo.. Ya tienes tiempo en el foro, asi que asumo, que sabras que no es lo recomendable esperar que a uno se lo hagan todo, no crees?

Abraham

PD: No te molestes, simplemente soy sincero

Pues aunque sea por esta vez ayudame, si necesito esto.