Gabriel, troque a sua rotina do evento initialize do formulário pela a abaixo :

Private Sub UserForm_Initialize()

Dim c As Range, a() As String, n As Long, i As Long

'Qde de Colunas a preencher
ListBox1.ColumnCount = 14

    With Plan1
        
        'Linha Inicial
        Set Rng = .Range("A3", .Range("A3").End(xlDown))
        
        Me.ListBox1.Clear
        
        'Se alterar a qde de colunas acima, ajuste nas linhas abaixo
        For Each c In Rng
            n = n + 1: ReDim Preserve a(1 To 14, 1 To n)
            For i = 1 To 14
                a(i, n) = c.Offset(, i - 1).Value
            Next
        Next
    End With
    
'Preenche o Listbox
If n > 0 Then Me.ListBox1.Column = a

End Sub

Obrigado Mauro troquei e funcionou, agora como faço para funcionar a Pesquisa? Com additem de antes para as 10 colunas que existia não deu mais certo.
Poderia me ajudar ? Gostaria de escrever qualquer palavra chave como um filtro, ou caso seja complicado,pesquisar pelas palavras da última coluna (SITUAÇÃO) - Ativa,Aberta,Finalizando ou finalizada.