Private Sub CommandButton1_Click()
Dim a()
Dim i&, ii&
With Me.ListView1
ii = .ListItems.Count
ReDim a(1 To ii, 1 To 3)
For i = 1 To ii
a(i, 1) = .ListItems(i)
a(i, 2) = .ListItems(i).SubItems(1)
a(i, 3) = .ListItems(i).SubItems(2)
Next i
End With
ThisWorkbook.Sheets(2).[a1].Resize(UBound(a), 3).Value = a
End Sub