überlauf dringend!!!!!!!!!!!

Sub druck()
Dim anfang As Integer
Dim ende As Integer

anfang = InputBox("erste Artikelnummer")
ende = InputBox("bis Artikelnummer")
zeile = 2
spalte = 1
While Sheets("daten").Cells(zeile, spalte) <> anfang
zeile = zeile + 1
Wend
druck:
Cells(5, 1) = Sheets("daten").Cells(zeile, spalte)
Cells(5, 3) = Sheets("daten").Cells(zeile, spalte + 1)
Cells(5, 6) = Sheets("daten").Cells(zeile, spalte + 2)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
While Sheets("daten").Cells(zeile, spalte) <> ende
zeile = zeile + 1
GoTo druck
Wend
End Sub
vor einer stunde hats noch funktioniert woran liegts?????