Sub Fill_in_Zeros()

Dim cell As Range

For Each cell In Range("E1: AU132")
If Len(cell.Value) = 0 Then
    cell.Value = 0
End If
Next

End Sub