Office - macro en excel

Hola saludos alguno de ustedes me puede decir como llenar una celda si esta vacia con un cero gracias

Suponemos que las celdas llenas y vacías están en una columna.
Primero hay que marcar y nombrar el rango que se quiere explorar ( yo lo nombré " vacios ".
El código puede ser como sigue:

Sub Ceros()
Range("A1").Select
Dim cell As Range
Dim vacios As Range
For Each cell In Range("vacios")

If ActiveCell.Value = "" Then
ActiveCell.Value = 0
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next cell
End Sub

Suerte