Dim lngLetzte As Long
Dim lngZeile As Long
Application.ScreenUpdating = False
lngLetzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row + 1, 65536)
For lngZeile = lngLetzte To 13 Step -1
If Cells(lngZeile, 2) = "" Then
Cells(lngZeile, 2).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True