Pessoal, preciso de uma ajudinha.

Estou tentando montar um comando para que todo número de ficha quando for repetida, tenha uma sequência que inicia do 1 em diante na coluna C.

Coloquei um exemplo em anexo com o comando que criei, mas não obtenho o resultado esperado.
O resultado que espero que seja executado na coluna C, deixei preenchido na coluna J.

Se pressionar o botão SEQUENCIAL e digitar o número da ficha 02-004/2021 vão observar que na coluna C é preenchido do número 9 em diante, porém deveria iniciar no 1 em diante.

Private Sub bt_Go_Click()

    x = 1
    For Contador = 4 To Sheets("CONTROLE").Range("B30000").End(xlUp).Row
    

        If NFICHA.Text = Sheets("CONTROLE").Range("B" & Contador).Value Then
        Range("c" & Contador).Value = x
        
                        
            End If
        
        x = x + 1
        Next Contador
        
       Unload Frm_Number_Ficha

End Sub