Blank Rows At The Bottom Of A UserForm Listbox When Duplicates Are Deleted

[Sharid]

I have a several listboxes, one on each page on multipage. The first listbox shows the data that has gone into sheet2. After the code is completed it deletes any duplicate records in column A of sheet 2. Therefore originally the listbox may have been populated with 100 records, 25 of which were duplicates, these are deleted at the end, leaving 75 unique records. The listbox ends up with blank rows at the bottom.

How can I prevent the blank rows from showing

Userform1
MultiPage1
Listbox1

 

[Sharid]

Its Ok I have fix the problem, I had this in my code to track the data as it went into my list box, this created a scroll affect,

With UserForm1.ListBox1
         UserForm1.ListBox1.ColumnCount = 1
         UserForm1.ListBox1.ColumnWidths = "600"
         UserForm1.ListBox1.RowSource = "'" & Sheet2.Name & "'!$A$1:$b$" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).row
        UserForm1.ListBox1.ListIndex = ExcelWebScraper.UrlsListBox1.ListCount - 1 'Allow Listbox To SCROLL as data goes in
    End With

After the code had finished, and duplicates were deleted I just re-added this

With UserForm1.ListBox1
         UserForm1.ListBox1.ColumnCount = 1
         UserForm1.ListBox1.ColumnWidths = "600"
         UserForm1.ListBox1.RowSource = "'" & Sheet2.Name & "'!$A$1:$b$" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).row
    End With

It hide all Blank rows. Only rows with data in them now show in the list box.