I am getting duplicate results from the following for and next loop.

There are 2 loops - i think the "i" loop is giving the duplicate results.
Could smebody help me to resolve this duplication so that i end up with only one set of results. Thanks

With UserForm1
.ListBox2.RowSource = ""
.ListBox2.ColumnCount = 2
.ListBox2.Clear
End With
Dim jo As Integer
Dim Mee As Integer
Dim u As Integer
Dim i As Integer
jo = UserForm1.IDsearch.Value
For i = 3 To 10
For Mee = 25 To 32
Set y5 = (ActiveSheet.Cells(5, i))
Set y6 = (ActiveSheet.Cells(jo, Mee))
With ListBox2
.AddItem y5.Value
.List(u, 1) = y6
u = u + 1
End With
Next Mee
Next i
End Sub