[RESOLVED] List box

[RDIIZZ]

Hello, i have problem , when ever i try to add info from cells to list box it also adds empty spaces, how could i change this?
Here is my code

Private Sub CommandButton1_Click()
    ListBox1.Clear


    If TypeOf Selection Is Range Then
        For i = 1 To Selection.Rows.Count
            For j = 1 To Selection.Columns.Count


                ListBox1.AddItem (Selection.Cells(i, j))


            Next
        Next
    End If

End Sub