Llenar celdas vacías con 0

Por favor ayudame solo con poner a las celdas vacías el valor 0.
Hace unos días me ayudaste con una macro, la cual la he modificado un poco(como para que copie y pegue el numero de factura, que las cantidades de productos se copien ya no por filas sino por columnas), y lo único que me falta y que no se como hacer es llenar con ceros las celdas vacías de cada fial(porque cada que se ejecuta la macro los datos se copian en una fila).
La macro la tengo de esta forma:
Sub inventario()
Application.ScreenUpdating = False
Sheets("prueba").Select
Range("A1").Select
fila = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
If Sheets("Factura").Range("B6").Value = 0 Then
MsgBox ("No se procesa por que falta el número de Factura")
Else
Cells(fila, 1).Value = Sheets("Factura").Range("B6").Value
End If
Sheets("factura").Select
Range("B15").Select
i = 15
For i = 15 To 40
If Cells(15, 2) = "" Then
Exit Sub
Else
buscar = Cells(i, 2)
cantidad = Cells(i, 1)
Sheets("prueba").Select
Range("C1").Select
Do While ActiveCell <> buscar
If ActiveCell = "" Then Exit Do
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = cantidad
End If
Sheets("factura").Select
Next i
Application.ScreenUpdating = True
End Sub