Yardım Listbox a alınan veriler arasındaki boşluğu silme

Private Sub UserForm_Initialize()

ComboBox1.AddItem "Ocak"
ComboBox1.AddItem "Şubat"
ComboBox1.AddItem "Mart"
ComboBox1.AddItem "Nisan"
ComboBox1.AddItem "Mayıs"
ComboBox1.AddItem "Haziran"
ComboBox1.AddItem "Temmuz"
ComboBox1.AddItem "ağustos"
ComboBox1.AddItem "Eylül"
ComboBox1.AddItem "Ekim"
ComboBox1.AddItem "Kasım"
ComboBox1.AddItem "Aralık"

ListBox1.ColumnCount = 4
'ListBox1.RowSource = "Ocak!a3:c" & Sheets("Ocak").[A500].End(xlUp).Row 'boş hücreleri listeden siler
For i = 2 To 13 'sayfalar arası döngü
    For t = 3 To 10 'satırlar arası döngü
        With ListBox1
            If Sheets(i).Cells(t, 1) <> "" Then
                .AddItem
                .List(.ListCount - 1, 0) = Sheets(i).Cells(t, 1)
                .List(.ListCount - 1, 1) = Sheets(i).Cells(t, 2)
                .List(.ListCount - 1, 2) = Sheets(i).Cells(t, 3)
                .List(.ListCount - 1, 3) = Sheets(i).Cells(t, 4)
            End If
        End With
    Next
Next

End Sub