ListView & Horizontal Range

Question asked also on : http://www.ozgrid.com/forum/showthre...505#post699505

Hello the forum

Lines that fill a listview are usually arranged vertically in the data sheet, in my case they are arranged horizontally

For now I can fill the listview, send listview values to the sheet, but my code is long, I need to reduce it with loops

It would be very nice if someone could give me help

Private Sub CommandButton1_Click()
Dim Sh As Worksheet, Li As Long, c As Integer, i As Integer, j As Integer
Set Sh = Sheets("Test")
Li = Sh.[B:B].Find(ListBox1, LookIn:=xlValues).Row
    Sh.Cells(Li, 15) = ListView1.ListItems(1).Text
    Sh.Cells(Li, 16) = ListView1.ListItems(1).ListSubItems(1).Text
    Sh.Cells(Li, 17) = ListView1.ListItems(1).ListSubItems(2).Text
    Sh.Cells(Li, 18) = ListView1.ListItems(1).ListSubItems(3).Text
    Sh.Cells(Li, 19) = ListView1.ListItems(1).ListSubItems(4).Text
    Sh.Cells(Li, 20) = ListView1.ListItems(1).ListSubItems(5).Text
    Sh.Cells(Li, 21) = ListView1.ListItems(1).ListSubItems(6).Text

    Sh.Cells(Li, 22) = ListView1.ListItems(2).Text
    Sh.Cells(Li, 23) = ListView1.ListItems(2).ListSubItems(1).Text
    Sh.Cells(Li, 24) = ListView1.ListItems(2).ListSubItems(2).Text
    Sh.Cells(Li, 25) = ListView1.ListItems(2).ListSubItems(3).Text
    Sh.Cells(Li, 26) = ListView1.ListItems(2).ListSubItems(4).Text
    Sh.Cells(Li, 27) = ListView1.ListItems(2).ListSubItems(5).Text
    Sh.Cells(Li, 28) = ListView1.ListItems(2).ListSubItems(6).Text

    Sh.Cells(Li, 29) = ListView1.ListItems(3).Text
    Sh.Cells(Li, 30) = ListView1.ListItems(3).ListSubItems(1).Text
    Sh.Cells(Li, 31) = ListView1.ListItems(3).ListSubItems(2).Text
    Sh.Cells(Li, 32) = ListView1.ListItems(3).ListSubItems(3).Text
    Sh.Cells(Li, 33) = ListView1.ListItems(3).ListSubItems(4).Text
    Sh.Cells(Li, 34) = ListView1.ListItems(3).ListSubItems(5).Text
    Sh.Cells(Li, 35) = ListView1.ListItems(3).ListSubItems(6).Text

    Sh.Cells(Li, 36) = ListView1.ListItems(4).Text
    Sh.Cells(Li, 37) = ListView1.ListItems(4).ListSubItems(1).Text
    Sh.Cells(Li, 38) = ListView1.ListItems(4).ListSubItems(2).Text
    Sh.Cells(Li, 39) = ListView1.ListItems(4).ListSubItems(3).Text
    Sh.Cells(Li, 40) = ListView1.ListItems(4).ListSubItems(4).Text
    Sh.Cells(Li, 41) = ListView1.ListItems(4).ListSubItems(5).Text
    Sh.Cells(Li, 42) = ListView1.ListItems(4).ListSubItems(6).Text
Unload Me
End Sub

Cordially, Kim.