Excelde sıfır yazan satırları gizleme

[hvolt10]

Merhabalar,
Excelde sıfır (0) olan hücrelerin olduğu satırlarını otomatik olarak gizlemek istiyorum. Aşağıdaki kodu kullandım fakat yapamadım, yardımcı olabilir misiniz?
NOT: Bu arada makro bilmiyorum. Sadece bu kodu "KODU GÖRÜNTÜLE" kısmına yazıp kaydedip run'a basıyorum. Bu kısımda mı hata var

Sub Gizle()
For Each t In Range("B:B").Cells
If t.Value = "" Then
t.EntireRow.Hidden = True
End If
Next t
End Sub

 

[Trilenium]

sonsatir = Range("B65536").End(xlUp).Row
For t = 1 To sonsatir
If Range("B" & t).Value = 0 Then
Range("B" & t).EntireRow.Hidden = True
End If
Next t

Sıfır dediğin için içinde sıfır geçen hücreleri gizleyecektir.