Listbox yerine listview

[ikikan]

arkadaşlar aşagıdaki kod ile kopyala yapıştır ile verileri userforuma getiriyorum
faka birkaç yanlış kullanımdan hata veriyor
ben istedigim bu kodu kapalı dosyadan kopyala yapıştır yapmadan direk litview e alamak bu mümkünmüdür ?
dosya ektedir

Dim i As Integer
ListView1.ListItems.Clear
c = WorksheetFunction.CountA(ActiveSheet.Range("A9:A" & 65536))
With ListView1
For i = 1 To c
m = m + 1
.ListItems.Add , , Cells(i + 8, 1)
.ListItems(m).SubItems(1) = Cells(i + 8, 2)
.ListItems(m).SubItems(2) = Cells(i + 8, 3)
.ListItems(m).SubItems(3) = Cells(i + 8, 4)
.ListItems(m).SubItems(4) = Cells(i + 8, 5)
.ListItems(m).SubItems(5) = Cells(i + 8, 6)
.ListItems(m).SubItems(6) = Cells(i + 8, 7)
.ListItems(m).SubItems(7) = Cells(i + 8, 8)
.ListItems(m).SubItems(8) = Cells(i + 8, 9)
.ListItems(m).SubItems(9) = Cells(i + 8, 10)
.ListItems(m).SubItems(10) = Cells(i + 8, 11)
.ListItems(m).SubItems(11) = Cells(i + 8, 12)
.ListItems(m).SubItems(12) = Cells(i + 8, 13)
.ListItems(m).SubItems(13) = Cells(i + 8, 14)
.ListItems(m).SubItems(14) = Cells(i + 8, 15)

Next
End With