Frage zu 'Do until' Schleife

Sub NeueTabelle()
Worksheets("Blut").Range("A:A").ClearContents
Dim Zeile As Integer
Dim LetzteZeile2 As Integer
Zeile = 6
LetzteZeile2 = 1
Do Until Zeile = 63
If Worksheets("Tabelle1").Cells(Zeile, 33).Value Like "*Perfusor*" Then Worksheets("Blut"). _
Cells(LetzteZeile2, 1).Value = Worksheets("Tabelle1").Cells(Zeile, 33).Value
Zeile = Zeile + 1
LetzteZeile2 = LetzteZeile2 + 1
Loop
End Sub