Public Sub userform_activate()
Sheets("IES VP").Activate
Dim i As Integer, j As Byte, l As Integer, b As Integer
Dim Listprod As String
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "220;60;0;0;0;0;60;60;60"
l = Range("B65536").End(xlUp).Row
For b = 5 To l
If Sheets("IES VP").Cells(b, 8).Value <= Sheets("IES VP").Cells(b, 10).Value Then ListBox1.List() = Sheets("IES VP").Range(Cells(b, 2), Cells(b, 10)).Value
Next
ListBox1.ListIndex = 0
ListBox1.Selected(0) = True
End Sub