Good, a win-win.

Bob

"gogo" wrote in message
...
a = 0
tnx Bob for help with "=sheet1!R[" & (a - 1) * 2 & "]C". this helped a lot
rearraged my macro and this do the work.

d1 = 1
d2 = 2
k = 2
Do
Range("B" & (a + d1 + 1)).Select
ActiveCell.FormulaR1C1 = "=Original!R[" & (a + d2) - k & "]C"
k = k + 1
d1 = d1 + 1
d2 = d2 + 2
Loop Until (d2 34)