Typen unverträglich

an markierter Stelle bekomme ich imer die Meldung "Typen unverträglich", kann mir allerdings nicht erklären, warum.

Sub Test()

Dim i As Integer
Dim Zeile As Integer

Zeile = 1
For i = 2 To 49

Workbooks("HalfHour05-04-14.xls").Sheets("Technik").Activate

If ActiveSheet.Cells(i, 8).Value >= 3 Then
Worksheets("Technik").Range(Cells(i, 1), Cells(i, 13)).Select
Selection.Copy
End If
Workbooks("VorlageBriefing.xls").Activate

While Worksheets(1).Cells(Zeile, 1) <> "" <---hier der Fehler

Zeile = Zeile + 1

Wend

Worksheets("Tabelle1").Cells(Zeile, 1).Select
ActiveSheet.Paste

Next i
End Sub

weiß jeman rat?

Viele Grüße
Mike