Listview Nesnesinden Belli Satırları Aktarma

Listview seçili satırdaki belli kolonlardaki verileri belli hücrelere aktarma

Merhabalar listview de seçtiğim satırda seçmek istediğim 2. 3. 4. 5. 6. 7. ve 8. kolonlar var ve bu kolonları aynı sıra ile "B" "C" "D" "E" F" "G" "H"
hücrelerine kaydetmek istiyorum lakin elimdeki kodlar 1. ve 9. kolonuda alıyor ek olarak textbox1 ve textbox2 de benim yazdığım textleri 1. ve 9. hücrelere eklemesini istiyorum şimdiden yardımlarınız için çok teşekkür ederim kodlarım altaki gibidir.

Private Sub CommandButton1_Click()
Dim l As ListItem

Set s1 = ThisWorkbook.Worksheets("iade")
s = s1.Range("A65536").End(xlUp).Row + 1
Set l = UserForm1.ListView1.SelectedItem
s1.Cells(s, 1) = s - 5 ' AAAAA
s1.Cells(s, 2) = l.Text
s1.Cells(s, 4) = l.SubItems(1)
s1.Cells(s, 5) = l.SubItems(2)
s1.Cells(s, 6) = l.SubItems(3)
s1.Cells(s, 7) = l.SubItems(4)
s1.Cells(s, 8) = l.SubItems(5)
s1.Cells(s, 9) = l.SubItems(6)
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub
Private Sub UserForm_Initialize()
TextBox2 = Format(Date, "mm.dd.yyyy")
Me.TextBox2.Enabled = False
End Sub