Acho q esta confuso... não consegui entender... em qual planilha realiza o filtro? Quais dados deseja exportar?

O listbox puxa os dados da guia pagamentos

Do formulario Relatorio?
O que quer que ele faça?

Consegui resolver em parte.
Quando abro o formulário aparece todos os dados que estão na planilha, que são 3 colunas (mês/ano, código da pessoa e que status)
Porém quando digito qualquer mês os outros dados que eram para aparecer somem.

No evento de inicialização do form vc digitou o codigo que preenche todas as colunas.
Ao digitar no textbox chama a sub PreencheLista que preenchia apenas a primeira coluna...
De uma olhada.

Necessito de uma luz

Private Sub UserForm_Initialize1()
    Dim UltimaLinha, i  As Integer
    'Dim cells As String
    Dados_Dizimista.ColumnCount = 5
    Dados_Dizimista.Clear
    
    UltimaLinha = Sheets("Cad_Antes").cells(cells.Rows.Count).End(xlUp).Row
    
    If UltimaLinha <> "" Then Exit Sub

        For i = 2 To UltimaLinha
            
            With Me.Dados_Dizimista
                '.Dizimista.AddItem .Cells(i, 1)
                '.AddItem Sheets("cad_antes").Range("a" & i).Value
                '.AddItem Sheets("cad_antes").Range("a")
                '.List(Dados_Dizimista.ListCount - 1, 1) = Sheets("cad_antes").Range("a" & i).Value
                '.List(Dados_Dizimista.ListCount - 1, 2) = Sheets("cad_antes").Range("a" & i).Value
                .List(Dados_Dizimista.ListCount - 1, 1) = Sheets("cad_antes").Range("a")
                .List(Dados_Dizimista.ListCount - 1, 2) = Sheets("cad_antes").Range("b")
            End With
        Next
    
End Sub
Private Sub UserForm_Initialize()
    Call PreencheLista
End Sub
Private Sub PreencheLista()

   Dim ws As Worksheet
    Dim i As Integer
    Dim TextoCelula As String
    Set ws = ThisWorkbook.Worksheets("Cad_antes")
    i = 1
    Dados_Dizimista.Clear
    With ws
        While .cells(i, 1).Value <> Empty
            TextoCelula = .cells(i, 1).Value
            If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
                Dados_Dizimista.AddItem .cells(i, 1)
                Dados_Dizimista.AddItem .cells(i, 1 + 1)
            End If
            i = i + 1
        Wend
    End With
End Sub

Se utilizar o "Private Sub UserForm_Initialize()"
As informações aparecem em linha e se eu utilizar "Private Sub UserForm_Initialize1()" as informações apareçam em coluna somente 1 coluna a medida que vou digitando o nome desejado.
Qual comando falta para que as informações que apareçam no listbox sejam iguais a da planilha.
Obs: Será 8 colunas que deveram aparecer no listbox.
Preciso que

No arquivo que postei no dia 14 você consegue ver a diferença