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