بعد اذن الاستاذ عبد الله الصاري جرب كود حدث الفورم
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
احفظ لوكو في فولدر الصور
ثم اذهب الى الاكسيل
ثم header / footer -------
ثم custom header
ثم انقر في center section
eثم انقر على رمز الصورة واختر الفولدر اللي فيه الصورة وانقر عليها
ثم magns
قم بتعديل الهامش العلوي حتى 3.5 سم
ثم OK