I'd like to clear empty or blank rows in a listbox from my workbook. Can you help me?

[renatoaragon]

Hello, I saw that you helped a guy that got the same problema than me. So I guess that you can help me too :) could you?

I have a code to populate data to listbox and filter an specifict item by textbox.
But when it populate all data, blank rows came together and I want to clear them, IDK how can I do this! :X

Here's my code...

Sub FILTRO_TEXTO()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Linha, linhalistbox As Integer
Dim valor_celula As String
linhalistbox = 1
Linha = 2
ListBox1.Clear
 
Sheets("Plan1").Select
With Sheets("Plan1")
 
        While .Cells(Linha, 1).Value <> ""
            valor_celula = .Cells(Linha, 1).Value <> ""
            If UCase(Left(valor_celula, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
            valor_celula = .Cells(Linha, 2).Value <> ""
            If UCase(Left(valor_celula, Len(TextBox2.Text))) = UCase(TextBox2.Text) Then
            valor_celula = .Cells(Linha, 3).Value <> ""
            If UCase(Left(valor_celula, Len(TextBox3.Text))) = UCase(TextBox3.Text) Then
            valor_celula = .Cells(Linha, 4).Value <> ""
            If UCase(Left(valor_celula, Len(TextBox4.Text))) = UCase(TextBox4.Text) Then
            valor_celula = .Cells(Linha, 5).Value <> ""
            If UCase(Left(valor_celula, Len(TextBox5.Text))) = UCase(TextBox5.Text) Then
 
    Me.ListBox1.ColumnWidths = "40;80;300;200"
    Me.ListBox1.ForeColor = RGB(0, 0, 102)
 
    With ListBox1
 
       .AddItem
       .List(0, 0) = "Ticket"
       .List(0, 1) = "Projeto"
       .List(0, 2) = "Descrição"
       .List(0, 3) = "Responsável"
       .List(0, 4) = "Status"
 
        End With
 
          With ListBox1
          .AddItem
            .List(linhalistbox, 0) = Sheets("Plan1").Cells(Linha, 1) 'Ticket
            .List(linhalistbox, 1) = Sheets("Plan1").Cells(Linha, 2) 'Projeto
            .List(linhalistbox, 2) = Sheets("Plan1").Cells(Linha, 3) 'Descrição
            .List(linhalistbox, 3) = Sheets("Plan1").Cells(Linha, 4) 'Responsável
            .List(linhalistbox, 4) = Sheets("Plan1").Cells(Linha, 5) 'Status
            End With
            linhalistbox = linhalistbox + 1
                End If
                    End If
                        End If
                            End If
                                End If
 
            Linha = Linha + 1
            Wend
 
   End With
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

[zmbd]

1) Link to the other thread so that we have some context
2) What have you tried already to fix this issue. We're happy to help; however, we don't wade thru tons of code - you have to have already done the basic troubleshooting.