Cita:
Iniciado por ambichol 
lo acabo de ejecutar pero como te comente solo me actualiza la el rango C3:C562, mas no los demas rangos....puede haber algun error...?
te comparto el codigo:
Código vb:
Ver originalSub Llenar_Ceros_2()
Sheets("Programas").Activate
Sheets("Programas").Range("D2:D2921,AD2:AD2921").SpecialCells(xlCellTypeBlanks) = 0
End Sub
¿Es el código real? dices que solo te actualiza el rango C3:C562, pero en el código no tienes puesto ese rango por lo que no debería actualizarse. El código que pusiste debe actualizar los rangos D2:D2921 y AD2:AD2921 de la hoja Programas.