Listbox'ı listview'e uyarlama

[seddur]

Merhaba.Aşağıda yazılı kodu listview1 için nasıl değiştirebiliriz.?Listview'deki verileri Liste sayfasına kaydetmek istiyorum. yalnızca koyu renkli alanı düzenleyemedim. Sheets("Liste").Cells(xrow, sut) = ListView1.ListItems(satir).ListSubItems(sut -1) şeklinde yazdım ama olmadı.

For satir = 1 To ListView1.ListItems.Count
For sut = 1 To 7
Sheets("Liste").Cells(xrow, sut) = ListBox3.list(satir, sut - 1)
next
next