В ListBox не удаляются пустые значения - VBA

Формулировка задачи:

Всем здравия! Есть форма, на форме листбокс, в которой должны попадать значения из определенного листа и столбца на этом листе! Значения попадают, но между ними пустые строки, как от них избавиться?

Решение задачи: «В ListBox не удаляются пустые значения»

textual
                            Листинг программы 
                        

                            Private Sub UserForm_Initialize() 'эта процедура возникает при запуске формы
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "20;20;40"
Dim i As Long, LastRow As Long, x As Long
    LastRow = Sheets("реестр").Cells(Rows.Count, 2).End(xlUp).Row
    x = 0
    For i = 6 To LastRow - 1
    If Cells(i, 2) <> "" Then
        With Me.ListBox1
            .AddItem ""
            .List(x, 0) = i - 5
            .List(x, 1) = Cells(i, 2).Value
            .List(x, 2) = Cells(i, 3).Value
            x = x + 1
        End With
        End If
    Next
 
  Me.Caption = "Отчет " 'назначаем заголовок формы
 
   With B_Выход
        .PicturePosition = fmPicturePositionLeftCenter
        .Picture = Application.CommandBars.FindControl(ID:=868).Picture
   End With
Me.Label1.Visible = False
Me.TextBox1.Visible = False
End Sub
                        