Rellenar celdas vacías con 0

Buenas tardes expertos!

Tengo el siguiente dilema, necesito rellenar las celdas vacías de un rango variable con ceros,

tengo esta pequeña macro, pero no se como adaptarla para que me seleccione desde la primer columna hasta la ultima, junto con todas las filas...

 Dim Celda As Range
For Each Celda In Selection
If Celda = "" Then
Range(Celda.Address).Value = "0"
End If
Next Celda

Gracias por leerme!