Boa noite, brunofelip.

Acho que esse código vai te dar o norte.
Insira essas linhas de códigos no seu UserForm.

Private Sub UserForm_Initialize()

Dim UltimaLinha As Long, Area As New Collection
Dim Value As Variant, Temp() As Variant

On Error Resume Next
UltimaLinha = Sheets("Inscritos").Range("D" & Rows.Count).End(xlUp).Row

'A linha abaixo refere-se a coluna que contém os dados da lista
Temp = Sheets("Inscritos").Range("D2:D" & UltimaLinha).Value

    For Each Value In Temp
        If Len(Value) > 0 Then Area.Add Value, CStr(Value)
    Next Value

    For Each Value In Area
        ComboBox1.AddItem Value 'ComboBox
    Next Value

Set Area = Nothing

End Sub

Fiz isso, porém me é listado apenas o conteúdo do ComboBox, preciso que agora (por exemplo) ao selecionar a entrada "BBBB" e digitar 500 no TextBox o mesmo seja lançado na célula vazia a sua frente, no caso do exemplo seria a E3. Ao digitar o novo valor (da mesma entrada) iria para a E4 e assim vai ...

Obrigado desde já pelo apoio.

Bom dia, brunofelip

Segue uma forma bem primitiva de montar o que precisa.
Sei que existe forma dinâmica e com bem menos linhas para montar o código, mas foge do meu entendimento sobre vba.

Arquivo:

Sensacional Trindade era exatamente isso que precisava.

Adaptarei o código a minha necessidade.

Abraços