Code anpassen - Formeln löschen

Sub leere_Zeilen_löschen_Kriterium_ist_Spalte_B()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.ColorIndex = 3 Then
Blatt.Select
Ende = Cells(Rows.Count, 2).End(xlUp).Row 'die 1 steht für die Spalte A
For i = Ende To 2 Step -1
If Cells(i, 2) = "" Then  'die 1 steht für die Spalte A
Rows(i).Delete
End If
Next i
End If
Next Blatt
End Sub