Endlosschleife bei Zeilen löschen

[Seven Eleven]

Morgen zusammen,

ich habe hier einen sub, mit dem ich eine Tabelle von leeren Zeilen und Zwischenüberschriften säubern will. Merkmal ist, dass die 2.Spalte Nichts oder die Überschrift enthält, da sonst nur Zahlen in der Spalte stehen.

Private Sub CmBAusw2sort_Click()
Dim i As Long

Worksheets("Test").Activate
AnzZeilen = ActiveSheet.UsedRange.Rows.Count
For i = 10 To AnzZeilen
      tmp = False
      While tmp = False
          Content = Trim(Cells(i, 2).Value)
          If Content = "" Or Content = "Artikel" Then
            Rows(i).Select
            Selection.Delete shift:=xlDown
          Else
            tmp = True
          End If
    Wend
Next i
End Sub

Der Sub funktioniert soweit ganz gut, allerdings hört die Prozedur nicht mehr auf! :suspekt:

Irgendwie komm ich auch grade nicht auf ne einfache und funktionierende abbruchbedingung. Könnt ihr mir bitte helfen, is bestimmt auch nicht schwer für euch!

 

[Ein_Freund]

EDIT: Falsch gelesen...