Ps: Listbox e nao textbox

Smile, não me entenda errado, mas colocar em um tópico em forum de Excel a expressão "Alguem sabe" não é muito elegante, seria melhor "Alguem tem..."

Quanto a sua duvida, se realizar pesquisa no forum encontrara varios Tópicos sobre o assunto, por outro lado, supondo que seu ListBox tem 02 colunas você pode utilizar o código abaixo:

Se tiver mais que duas colunas ajuste nesta linha :
For iColCount = 0 To 1 'ListBox com 2 colunas, se tiver mais ajustar aqui
'Lembrando que a numeração de colunas no ListBox começa em "ZERO"

Ajuste tambem o Nome da aba para onde quer enviar a lista, na rotina eu deixei como "Relatorio".

Private Sub CommandButton4_Click()

    Dim iLin As Integer
    Dim wsRelatorio As Worksheet
    Dim UltimaLinha As Long
    Dim iListCount As Integer
    Dim sCol As Integer
    
    Set wsRelatorio = ThisWorkbook.Worksheets("Relatorio")

    UltimaLinha = wsRelatorio.UsedRange.Rows.Count
    
    wsRelatorio.Range("A2:" & "G" & UltimaLinha).ClearContents
    
    sCol = 1
    iLin = 2

  'Conta as Linhas no Listbox.
    For iListCount = 0 To ListBox1.ListCount - 1
                  
        For iColCount = 0 To 1 'ListBox com 2 colunas, se tiver mais ajustar aqui
                               'Lembrando que a numeração de colunas no ListBox começa em "ZERO"
            
            'Transfere para plan somente os valores das duas primeiras colunas
             wsRelatorio.Cells(iLin, sCol).Value = ListBox1.List(iListCount, iColCount)
             
             sCol = sCol + 1
             
        Next iColCount
        
        iLin = iLin + 1

    Next iListCount

End Sub

[]s

Muito Obrigado

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.