Algunas preguntas

hola Memento

1.-> ¿Por qué si el valor del contador es cero no marca ese valor en
la

celda especificada? ¿Hay alguna manera en particular para marcar el
valor de un contador cuando es cero en una celda?

una forma, (supongo) es marcar la casilla en el menu ->Herramientas
->Opciones -> Ver -> Valores 0

otra puede ser formatearla por ejemplo asi ->

Sheets("Historico").Range("e15").Value = contador
Sheets("Historico").Range("e15").numberformat="0"

o (para mi gusto) mejor ->

with Sheets("Historico").Range("e15")
.Value = contador
.numberformat="0"
end with

2.-> pero si ejecuto la siguiente macro en otra hoja por ejemplo:

Sheets("Reporte 2").Select
Range("A9,D9,G10,I10,E38,E40,E42,A15:J21,A27:J36").Select
Selection.ClearContents
resulta el siguiente error.
"Se ha producido el error '1001'"
"Fallo en el método Select de la clase Range"
¿Por qué?

el motivo no estoy seguro, creo que posiblemente deberias activar la
hoja 1º, pero no me hagas demasiado caso

en cualquier caso, no es necesario activar/seleccionar rangos ni hojas
para borrar (y en general, para trabajar) su contenido, esto, en teoria
te haria el trabajo sin problemas

->> Sheets("Reporte 2") _
.Range("A9,D9,G10,I10,E38,E40,E42,A15:J21,A27:J36").ClearContents

->OJO al salto de linea

bueno, espero te ayude en algo, y que algun experto de verdad te aclare
las dudas del todo

un saludo y hasta pronto
Ivan