Soru ListView Süzme Sorunu

[okan32]

Aşağıdaki kod ile ListViewde verileri süzme yapıyorum. ListViewde sayfa1 deki tüm veriler gözükmesine rağmen süzme yaparken ListViewdeki 3. satırdan itibaren süzme yapıyor kodda 2. satır olmasına rağmen bir türlü anlayamadım. yardımlarınızı bekliyorum.

Sub suz_62()
Set sr = Sheets("Sayfa1")
ListView1.ListItems.Clear
With ListView1
For i = 2 To sr.Cells(65536, "B").End(xlUp).Row
If CLng(CDate(TextBox12.Value)) <= sr.Cells(i, "I") Then
If CLng(CDate(TextBox13.Value)) >= sr.Cells(i, "I") Then
         .ListItems.Add , , i
        X = X + 1
        .ListItems(X).ListSubItems.Add , , sr.Cells(i, "A")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "b")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "C")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "D")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "E")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "F")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "G")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "H")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "I")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "J")
                     .ListItems(X).ListSubItems.Add , , sr.Cells(i, "K")
                   
                   
End If
End If
Next i
End With
Set sr = Nothing

   End Sub