Listbox displaying empty entries at the end of the list

Hello Randell,

Here is an example. This code would be placed in the general declarations section (the very top) of the UserForm. You will need tot change the worksheet name and ListBox to what you are using. These appear in red font.

Sub LoadListBox()

  Dim Cell As Range
  Dim Rng As Range
  Dim RngEnd As Range
  Dim Wks As Range
  
    Set Wks = Worksheets("Sheet1")
    
    Set Rng = Wks.Range("A2")
    Set RngEnd = Wks.Cells(Rows.Count, Rng.Column).End(xlUp)
    Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Wks.Range(Rng, RngEnd))
    
      For Each Cell In Rng
        If Cell <> "" Then
           ListBox1.AddItem Cell.Text
        End If
      Next Cell
      
End Sub