VBA excel
Всем привет!

Есть столбец "A" в нем значение - тип "текста". Как преобразовать/подменить все эти значение в числовой формат для последующего суммирования?

72.00 RUR
12.00 RUR
15.00 RUR
1289.00 RUR
769.00 RUR

sub test()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For z = LastRow To 1 Step -1
Range("A" & z).Select
ActiveCell.FormulaR1C1 = "=VALUE(TRIM(SUBSTITUTE(R[-1]C,""RUR"","""")))"
' R[-1]C Вот за место этого что ?

Next z
End Sub
===

Спасибо...