Formel-Makro

ich habe folgendes problem. das folgende makro generiert formeln. es verweist auf eine datentabelle. dort sind die einträge einzeilig. in einem weiteren blatt möchte ich jedoch alle zwei zeilen auf jeweils eine zeile verweisen ohne zeilen in der datentabelle zu überspringen. soweit so gut. problematisch ist allerdings, dass das makro formeln generiert, die auch in der datentabelle jeweils um zwei zeilen weiterspringt. somit wird immer eine datenzeile übersprungen.
mit variablen anstelle der [-5] habe ich es schon versucht. das akzeptiert er jedoch nicht.

rctest Makro
a = 6
Do Until a = 100
Cells(a, 1).Select
ActiveCell.FormulaR1C1 = "=Daten!R[-5]C"
a = a + 2
Loop
End Sub

also. wer eine idee hat???

dankeschön im voraus,

andreas