VBA - in Prüfung von unten nach oben umwandel

Dim Zeile As Variant
    For Zeile = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
     'Hier wird der Arbeitsbereich angegeben  
     With Range(Cells(Zeile, 13), Cells(Zeile, 22))
         If Application.WorksheetFunction.CountBlank(.Cells) = .Cells.Count Then
             Rows(Zeile).Delete
         End If
     End With
     Next