Perfeito Bruno era isso que queria, não iria conseguir nunca fazer esse código.
Agora para cada combobox 2,3,4,5,etc eu preciso colocar o mesmo código e alterar o numero e a fonte correto?
galera do poker vai pirar quando ver kkkkkkk

Sim, para os outros combobox basta alterar os nomes e o número. Não esqueça de ir testando as alterações.

*Se resolveu o problema, não esqueça de marcar o o tópico como resolvido.

att,

Bruno encontrei um problema
eu troquei o nome do prim para segu e onde vc pede para mudar o numero coloquei 2 esta correto?
só que quando vou testar na hora que coloco o 1ª blz preenche certinho, porem na hora que coloco o 2ª ele marca o nome do 1ª como segundo.

Note que no último For você não mudo ou prim para segu.

'Coloca o número 1
        For i = 3 To Nlin
            If Trim(Ws.Cells(i, 1).Value) = Trim(prim.Value) Then
                'Mude aqui para o número desejado
                Ws.Cells(i, Ncol).Value = 2
                Exit For
            End If
        Next i

Obrigado, não tinha reparado.. agora deu certo