SPALTE MIT ZAHLEN FÜLLEN

HALLO IHR LIEBEN!!
wie kann ich spalte D mit einer zahlenfolge 1;2;3;4;unsw.
automatisch füllen,
wenn links C oder rechts E einträge stehen??
DAS PROBLEM:
wenn ein user nur 50 einträge hat dann werden hier bei meinem bestehenden code 
zahlen bis 10000 gefüllt.die ich dann wieder löschen muß!!
 
 Sub zahlen()
 Application.ScreenUpdating = False
    Sheets("Tabelle1").Select
    Range("d1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("D1:D2").Select
    Selection.AutoFill Destination:=Range("D1:D10000"), Type:=xlFillDefault
 Application.ScreenUpdating = True
 End Sub

DANKE 
IVAN