Validacion celdas en blanco table y rellenar

Buenas noches expertos.
Espero me puedan ayudar con el siguiente caso que no he podido terminar.
Necesito copiar los datos de una tabla dinámica y pegarlos en otro libro y cuando los pego valido si hay celdas en blanco y las relleno con ceros, ya tengo el código listo pero no se exactamente como validar, ya que este me funciona cuando encuentra celdas vacias pero no me funciona en los casos en que no encuentra celdas vacias, me muestra error y me dice que no encontro celdas. Que parte debo modificar en el if para que tomo la validaciòn correcta?
El código es el siguiente
'Primero selecciono los datos de la tabla y me paso al libro donde los voy a pegar
'y estando en este libro continua el siguiente código
Range("J1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select 'hasta aquí solo me he posicionado donde quiero pegar los datos
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
If (Selection.SpecialCells(xlCellTypeBlanks).Select = True) Then
Selection.FormulaR1C1 = "=0"
End If
Y aquí continuo con otro codigo.
Muchas gracias a quien me pueda ayudar.