With ComboBox1
For Each Data In ورقة3.Range("B2:B" & ورقة3.Cells(Rows.Count, "b").End(xlUp).Row)
i = Data.Row
AA = Application.WorksheetFunction.CountIf(ورقة3.Range(Cells(2, 2), Cells(i, 2)), Data)
If AA = 1 Then
.AddItem Data
.List(.ListCount - 1, 1) = Data.Offset(0, 1).Value
End If
Next
End With