الأرقام 1 2 3 4 5 تظهر بسبب هذا الجزء قم بحذفه
For x = 1 To ws2.Range("B65536").End(xlUp).Row
ComboBox1.AddItem ws2.Cells(x, 2)
Next
والتغير اجريتها بان استبدلت رقم عمود الليست بوكس من رقم ثابت وهو الصفر كما كان بالاول الي متغير "V" حتي يتغير في حالة وجود اكثر من سطر