Ajuda com numero de pagina em campo

Necessito de ajuda para concluir um trabalho em VBA, tenho uma planilha que consiste em aba (1) e aba (2), na (1) tenho um campo ("BB4") na qual eu entro com valor de quantas vezes precisarei copiar e colar a (2), a partir dai, preciso inserir no campo ("AP2") da aba 2 em diante o numero da pagina a qual ela pertence. ex:(aba 2 = 2, aba 3 = 3,...), só não posso usar o formato de exibir paginas automático.

Código:

Sub Copier2()

    Dim x As Integer
    Dim numeroplan As Integer
    Dim Cell As Range
    Dim Nomear As String
          
    x = Range("BB4").Value - 1
    For numtimes = 1 To x
          
        ActiveWorkbook.Sheets("2").Copy _
           after:=ActiveWorkbook.Sheets(Sheets.Count)
      
Nomear = CStr(Sheets.Count)
If Len(Nomear) = 2 Then
   Nomear = "" & Nomear
End If
ActiveSheet.Name = Nomear
 
   Next
  
   Sheets(1).Select
          
End Sub

Postei no 4shared o arquivo ZIP, como FOLHA DE DADOS.

4shared.com/zip/3QWHuwbR/FOLHA_DE_DADOS.html