Sub DeleteB()
Dim i As Long, j As Long, maxzeilen As Long
maxzeilen = Range("A65536").End(xlUp).Row ' <----was bringt diese Zeile vor allem das End ???
i = 1
j = 0
Do While i < maxzeilen
If Cells(i, 2).Value = "" Then ' wenn in der 2. Spalte nichts steht dann
Rows(i).Delete ' löschen !!
j = j + 1
If i + j >= maxzeilen Then Exit Sub
i = i - 1
End If
i = i + 1
Loop
End Sub