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

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