Bom dia!!

A subrotina FindAllMatches, trabalha fazendo um auto completar e procura todas as relações que correspondem o que foi digitado na TextBox.
Por isso

nome aparece 5 vezes na listbox,

Eu sugiro criar um Filtro para resolver a critica abaixo, além de ser rápido o processamento dos dados.

porem estou querendo que apareça os dados igual ao da planilha que os dados estão sendo procurado.

Att

Deu certo, porem não estou conseguindo definir o numero de colunas que desejo e o tamanho da mesma.

Private Sub PreencheLista()
    Dim ws As Worksheet
    Dim i As Integer
    Dim TextoCelula As String
    Set ws = ThisWorkbook.Worksheets("cadantes")
    i = 1
    'List_Dizimista.ColumnCount = 5
    List_Dizimista.Clear
        With ws
        While .Cells(i, 1).Value <> Empty
            TextoCelula = .Cells(i, 1).Value
                If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                List_Dizimista.AddItem .Cells(i, 1)
                'List_Dizimista.AddItem .Cells(i, 2)
                'For i = 0 To List_Dizimista.ListCount - 1
                'List_Dizimista.ColumnCount = 5
                'Next i
            End If
            i = i + 1
            
        Wend
    End With
End Sub