Convém antes de colocar as dúvidas, pesquisar no forum por respostas e há dezenas de códigos aqui para o efeito que pretendes.
Na tua folha, tens que criar uma coluna para o nome da empresa independentemente de estar ou não na TextBox, pois o Excel não sabe a que empresa os dados dizem respeito.
Optei por colocar o nome da Empresa na coluna "A", podes no entanto colocar na coluna que quiseres e adaptar o código de acordo com essa localização.
Adapta o código:
Private Sub CommandButton7_Click()
ListBox1.Clear
Dim ULT As Long
Dim X As Integer
Dim W As Worksheet
Set W = ThisWorkbook.Sheets("TUA_FOLHA")
W.Select
ULT = Sheets("TUA_FOLHA").Cells(Cells.Rows.Count, 1).End(xlUp).Row
'O nº 1, diz respeito à coluna onde é feita a pesquisa. Coluna 1 = Coluna "A"
For X = 2 To ULT
If Sheets("TUA_FOLHA").Cells(X, 1).Value = TextBox6.Value Then
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 1).Text
.List(.ListCount - 1, 1) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 2).Value
.List(.ListCount - 1, 2) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 3).Value
.List(.ListCount - 1, 3) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 4).Value
.List(.ListCount - 1, 4) = ThisWorkbook.Sheets("TUA_FOLHA").Cells(X, 5).Value
End With
End If
Next
End Sub
De acordo com a tua folha, procede às alterações necessárias.
Marca o tópico como resposta se te for útil.
M_A_S_L