Guru do Excel e Power BI

Public Sub CarregarTipo()
    Dim lngUltLin       As Long
    Dim lngCont         As Long
    Dim colTipo         As New Collection
    
    With wshTeste
        lngUltLin = .Cells(.Rows.Count, 1).End(xlUp).Row    'Encontra a última preenchida da coluna Tipo
        
        'Faz um loop pela coluna Tipo
        For lngCont = 2 To lngUltLin
            On Error Resume Next
                'Se o Tipo for único (não foi adicionado ainda), adiciona o item.
                'Caso contrário, dará erro e pula p/ próxima instrução (ou seja, não adiciona item repetido)
                colTipo.Add .Cells(lngCont, 1).Value2, .Cells(lngCont, 1).Value2
            On Error GoTo 0
        Next lngCont
        
        'Limpa a combobox e faz um loop pelo Coleção e adiciona cada item na combobox
        frmTipo.cmbTipo.Clear
        For lngCont = 1 To colTipo.Count
            frmTipo.cmbTipo.AddItem colTipo.Item(lngCont)
        Next lngCont
    End With
End Sub