Legal, consegui abrir, muito obrigado, agora sem querer abusar, como faço para inserir um botão que ao selecionar a linha e dar dois cliques, as informações fossem transportadas para uma célula específica.

Desde ja, agradeço pela contribuição.

Segue uma possibilidade:
acrescente uma nova planilha
na Sub PreencherListView(), habilite a linha --> .FullRowSelect = True (delete o apostrofe no inicio)

e inclua o codigo abaixo

Private Sub ListView1_DblClick()
Dim lastRow As Long

With Sheets("Plan1")
    lastRow = .Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row + 1    
     .Cells(lastRow, "a").Value = ListView1.SelectedItem.ListSubItems(1)
End With
End Sub

Obrigado Reinaldo, atendeu perfeitamente minha necessidade. Sem querer abusar, só mais uma coisa que fiquei na dúvida ele está trazendo a coluna dois na célula, e caso eu queira trazer a coluna 1? como faço?

Obrigado

.Cells(lastRow, "a").Value = ListView1.SelectedItem 'REtorna na coluna a a primeira coluna do listview
.Cells(lastRow, "b").Value = ListView1.SelectedItem.ListSubItems(1) 'Retorna na coluna b a segunda coluna do listview
.Cells(lastRow, "c").Value = ListView1.SelectedItem.ListSubItems(2) 'Retorna na coluna c a terceira coluna do listview