Sub BlankstoZero()
Dim c As Range
For Each c In Worksheets("sheet1").Range("A1:A" & Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row)
 If IsEmpty(c) Then
   c.Value = 0
 End If
Next
End Sub