nächste Zelle bearbeiten

ich möchte gern über eine "For to Next Schleife" die nächste Zelle mit einem Wert füllen. Mein Makro sieht z.Z. so aus:

Private Sub CommandButton1_Click()
Dim c As Range
Range("a5").Select
Set c = ActiveCell

For x = 1 To 50

'Wert der eingetragen werden soll
c.FormulaR1C1 = "=choose(1+mod(r[-2]C:R[-2]C,4), ""Frei"", ""S"", ""F/N"", ""N/"")"

c = c + x

Next x
End Sub

Irgendwo liegt ein Gedankenfehler, aber ich kann ihn nicht finden.

Danke

Olaf