Filling in Blank cells in CurrentRegion

Hello, I'm having a few problems with filling in Blanks with a 0. I have the following code so far. Any help appreciated.

Sub Fill_Blanks()

Dim cell As Range

For Each cell In Range("B4").CurrentRegion

If cell.SpecialCells(xlCellTypeBlanks) Then

cell.Value = 0
End If

Next cell

End Sub