Boa noite, Equipe do Forum

Estou utilizando o código abaixo para gerar contador automático dentro do userform "MultiPage1" porém ao cadastrar uma informação o contador está gerando numero repetido, não esta gerando na sequencia.

Private Sub MultiPage1_Layout(ByVal Index As Long)
'GERADOR DE CONTADOR
Dim linha As Long
Dim contador As Long
linha = 3
contador = 0
While Cells(linha, 1) <> ""
If Cells(linha, 1) > contador Then
contador = Cells(linha, 1)
End If
linha = linha + 1
Wend
contador = contador + 1
txt_id = contador

End Sub

Grato
avgsantos