بعد اذن الاستاذ عبد الله الصاري جرب كود حدث الفورم
Private Sub UserForm_Initialize()
Dim ws As Worksheet: Set ws = Sheets("sheet1")
Dim b
Me.ListBox1.ColumnCount = 1
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
For b = 4 To lr
Me.ListBox1.AddItem ws.Cells(b, 1).Value
Next b
End Sub