Zeilen mit Bedingung löschen per VBA

Sub Bereinigen()
' Zeilen löschen bei denen in Spalte C,D,E und F der Wert "0" ist
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row
'** Durchlauf aller Zeilen
For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2
'Abfragen, ob in Spalte 3,4,5 und 6 der Wert "0" ist
If Cells(t, 3).Value = "0" And Cells(t, 4).Value = "0" And Cells(t, 5).Value = "0" And Cells(t, 6).Value = "0" Then
Rows(t).Delete Shift:=xlUp
End If
Next t
End Sub