Excel VBA Multiply

Dears,
First of all. This is an awesome forum and I have been learning from this from long time.

I have a question.
I have cell range which are linked to external excel file and containing different numbers in various currency. Cell Range ( A1:A30)
I have a currency range with which I want to convert the above range and conversion rate is given in B1
and I am applying the following code.

Sub Convert()
[A1:A30] = [index(int(A1:A30*B1),)]
End Sub

It works perfectly fine however after multiplying it is removing the links of external file and giving me hard figures.
Is it possible If I can modify the above code and keep the external links * figure in B1 and get a product?

Regards,
N