Dim ItemX as Listitem, _
         i          as long
i=3
For each ItemX in Listview1.Listitems
       xlWS.Range("a" & i).Value=ItemX.text
      xlWS.Range("b" & i)=ItemX.Subitems(1)
       xlWS.Range("c" & i)=ItemX.Subitems(2)
       xlWS.Range("d" & i) =ItemX.Subitems(3)
       xlWS.Range("e" & i)=ItemX.Subitems(4)
        xlWS.Range("f" & i)=ItemX.Subitems(5)
        xlWS.Range("g" & i)=ItemX.Subitems(6)
i=i+1
next