Private Sub UserForm_Initialize()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Not IsEmpty(Cells(iRow, 1)) Then
cboNoEmptys.AddItem Cells(iRow, 1).Value
End If
Next iRow
End Sub