Veriden küçük olanı listeleme

[işsiz123]

Merhabalar
Lİstbox1 de A:B sütundali veriler listeleniyor. B Sütunundaki veri 15 ten küçük olanları listboxta göstermesini istiyorum. Diğer büyük olanlaı göstermesin. Teşekkürler.

 

[veyselemre]

    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        If Cells(i, 2).Value < 15 Then
            ListBox1.AddItem Cells(i, 1).Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(i, 2).Value
        End If
    Next i