Convertire listview a numero in foglio excel

Gentilissimi amici ho seguito il vostro consiglio creando una macro che moltiplicasse x 1 il valore in modo da poter applicare le formule nel foglio "Report". Il codice è:

Sheets("Report").Select
Dim Moltiplicatore As Double
Dim Range_da_moltiplicare As Range
Dim cella As Variant
On Error GoTo Fine
Moltiplicatore = 1 'valore delle cella per la moltiplicazione
Set Range_da_moltiplicare = Range("F3:I500") 'celle alle quali va applicata
For Each cella In Range_da_moltiplicare
Cells(cella.Row, cella.Column) = cella * Moltiplicatore
Next
Fine:
Set Range_da_moltiplicare = Nothing


Mentre il file completo (magari potrà tornare utile a qualcun'altro a questo link:

https://www.dropbox.com/s/4xpto682lnkc1uc/Ricerca%20Multipla%2010%20ottobre_Forum.xlsb?dl=0



Mi scuso se il codice l'ho inserito in questa maniera, magari se mi dite come inserirlo.

Grazie ancora

Luigi