Bei gefülltem Feld ins nächste automatisch wechseln

Hallo zusammen

Bin noch ein Anfänger in der Makrowelt...

Ich habe gerade ein Makro gemacht:

Private Sub VersandtascheC5_Click()
ActiveWindow.SmallScroll Down:=78
Range("A100").Select
ActiveCell.FormulaR1C1 = "C589437"
End Sub

Ich möchte dass wenn A100 schon ausgefüllt ist, dass er es in die nächsten füllt. Wenn A100 gefüllt ist soll er in A101 ... gehen. Wie mache ich das?

Danke und Gruss