2 zahlen zu viel

hallo ihr experten
ich lese in die textbox3 tabelle1 spalten c,d,e über 1000mp3 files ein.
und dann ein füge ich mit einem code zahlen ein.
wobei der code darauf achtet,wenn links oder rechts nichts enthalten ist.
auch keine zahlen eingefügt werden.aber 2 zahlen fügt er mir trotzdem zu viel ein 
WARUM?????

   Sub zahlen()
     Application.ScreenUpdating = False
       Sheets("Tabelle1").Activate
         lz = Range("D1").CurrentRegion.Rows.Count
           Range("D1") = 1
       Range("D2").FormulaR1C1 = "2"
       Range("D1:D2").AutoFill Destination:=Range("D1:D" & lz), Type:=xlFillDefault
    Application.ScreenUpdating = True
  End Sub

beispiel:
no women no schrei 1 bob marley
sos                2 abba
                   3
                   4
ZAHL 3 und 4 sollte nicht eingefügt werden!!!
ich denke das resultiert daher das ich beim einlesen vom verzeichniss
nur *.mp3 einlese aber meine xls ist auch in diesem verzeichniss.
und noch ein unterverzeichniss gibt es auch.
diese beiden liest er mit ein; aber man kann sie nicht erkennen
auch nicht wenn ich in der tabelle1 in die zelle klicke.
was kann ich da noch machen???

DANKE 
IVAN