Listview'deki veriyi Listview'e süzme

[seddur]

İyi akşamlar dileklerimle bir konuda yardım almak istiyorum.Aşağıdaki kod ile excel sayfasından(anasayfa) alınan verileri pencere4 adlı listview'de süzüyorum.Yapmak istediğim süzülü bu verileri yeniden comboboxdaki değere göre 2.kez süzmek.Yani verileri Anasayfa yerine listviewden çekecek yeniden aynı listview'e aktaracak.Yardımcı olacak arkadaşa Teşekkür Ederim.

Dim S1 As Worksheet
With UserForm15.pencere4
.ListItems.Clear
Set S1 = Sheets("Anasayfa")
For i = 15 To S1.Cells(Rows.Count, "k").End(xlUp).Row
If Sheets("Anasayfa").Range("k" & i).Value = UserForm5.ComboBox1.Text Then

Set List = .ListItems.Add(, , S1.Cells(i, "a").Text)
List.ListSubItems.Add , , S1.Cells(i, "c").Text
List.ListSubItems.Add , , S1.Cells(i, "f").Text
List.ListSubItems.Add , , S1.Cells(i, "g").Text
List.ListSubItems.Add , , S1.Cells(i, "h").Text
List.ListSubItems.Add , , S1.Cells(i, "ı").Text
List.ListSubItems.Add , , S1.Cells(i, "j").Text
List.ListSubItems.Add , , S1.Cells(i, "k").Text
List.ListSubItems.Add , , S1.Cells(i, "m").Text
End If
Next
End With

 

[seddur]

Ekran görüntüsünde SATIŞ olan işlemlerin dökümü var.Yapmak istediğim İkinci bir listview'de veya aynı listview'de ÖDEME TİPİ sütununda yer alan NAKİT işlemlerin dökümünü almak.Ödeme tipi combobox'dan seçilecek.