Segue código que estou usando:

  With wksDest
    final = .Cells(.Rows.Count, "D").End(xlUp).Row
  End With

  Dim pegapagina As String
  Dim contapagina As Integer
Dim ordem As Integer
  contapagina = 1
ordem = 1
  pegapagina = wksDest.Range("A" & contapagina).Value
    Do While pegapagina = pegapagina
        For contador = 5 To final
            wksDest.Range("A" & contador).Value = ordem
            ordem = ordem + 1
        Next
    Loop
  

Disponibilize um arquivo de exemplo de como deve funcionar

Disponibilize um arquivo de exemplo de como deve funcionar

Segue arquivos em anexo.

Resolvido com:

    Dim paginatual As String
    paginatual = "0"
    ordem = 1
    For contador = 5 To final
        paginatual = wksDest.Range("B" & contador).Value
        wksDest.Range("A" & contador).Value = ordem
        If wksDest.Range("B" & contador + 1).Value <> paginatual Then
            ordem = 1
        Else
            ordem = ordem + 1
        End If
        
    Next