Private Sub UserForm_Initialize()
With Sheets(4)
derli = .Range("A65536").End(xlUp).Row
For Each cell In .Range("B2:B" & derli)
ListBox1.AddItem cell.Value
Next
For Each cell In .Range("C2:C" & derli)
ListBox2.AddItem cell.Value
Next
For Each cell In .Range("G2:G" & derli)
ListBox4.AddItem cell.Value
Next
For Each cell In .Range("J2:J" & derli)
ListBox3.AddItem cell.Value
Next
End With
End Sub