strange range access

[tom taol]

Set r = Union([a2], [a4], [a9])
r.FormulaR1C1 = "=r[-1]c"
r.Value = r.Value

i want to chang result value of function of non continuous cells to
value....

 

[Tim Williams]

Sub Tester()
Dim a As Range, r As Range

Set r = Union([a2], [a4], [a9:b9])

For Each a In r.Areas
a.Value = a.Offset(-1, 0).Value
Next a
End Sub

Tim

 

[tom taol]

Using of for loop, no, no...
I want to do once. express access