Visual Basic VBA - Combobox com critério e dados duplicados

[LucasSchuster]

Olá, 

Estou com um probleminha no meu código vba (vou postar logo a baixo), eu tenho varias combobox, quando seleciono uma a outra busca outros valores, até ai tudo bem, porém preciso eliminar dados que aparecem mais de uma vez na combobox em questão (obs.: eu tenho dados iguais que aparecem mais de uma vez na minha tabela, na mesma coluna, mas para a combobox em questão preciso que apareça somente uma vez). O código que estou usando é este:

Private Sub categoria_Change()

Sheets("Materiais - Geral").Select
Dim lin As Integer
lin = 2

With Sheets("Materiais - Geral")

    Do Until .Range("A" & lin).Value = ""
    
        If .Range("A" & lin).Value = categoria.Text Then
        subtipo.AddItem .Range("C" & lin).Value
               
        End If
    
    lin = lin + 1
Loop

End With

End Sub

Esta funcionando e aparecendo todos os dados, inclusive os que aparecem mais de uma vez na lista, o que não quero que aconteça.

Onde está o erro do código que não estou encontrando? Quem puder ajudar agradeço muito.

 

Obrigado desde já.