Çözüldü Listview de excel aktarım

Selamün Aleyküm tarihle ilgili bir sorunum günün tarihini excelde ki 4 sutuna yazmasını istiyorum. diğer kodlar çalışıyor birkaç deneme yaptım olmadı

For i = 1 To VeriAktarim.ListView1.ListItems.Count
If VeriAktarim.ListView1.ListItems(i).Checked Then sat = i: Exit For
Next i
If sat = Empty Then MsgBox "Lütfen kayıt yapmak istediğiniz satırı seçiniz...", vbExclamation, "Excel Çözüm": Exit Sub

Sheets("Günlük Dikimler").Select

Dim X As Integer
For X = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(X).Checked = True Then
With Sayfa12.Range("A1000000").End(xlUp)
.Offset(1, 0) = Me.ListView1.ListItems(X)
.Offset(1, 1) = Me.ListView1.ListItems(X).ListSubItems(1)
.Offset(1, 2) = Me.ListView1.ListItems(X).ListSubItems(2)
.Offset(1, 3) = Me.ListView1.ListItems(X).ListSubItems(3)
.Offset(1, 4) =
.Offset(1, 5) = Me.ListView1.ListItems(X).ListSubItems(11)
.Offset(1, 6) = Me.ListView1.ListItems(X).ListSubItems(12)

End With


End If
Me.ListView1.ListItems(X).Checked = False
Next X