Se ha producido el error 1004 en tiempo de ejecucion
no se puede cambiar parte de una celda combinada
La linea:
Range("A1:H30").ClearContents
Se sombrea amarilla, es decir, ahi esta el error.
Pues simplemente, hay celda combinadas que estan dentro y fuera de tu rango, es decir, por ejemplo, quizas tieens la celda H1 combinada con I1, entonces te dara el error ya que tu rango no comprende la columna I.
Sino me deje entender. Si yo combino A1 y B!, y luego coloco
Range("A1").ClearContents , me dara el mismo error, lo correcto es:
Range("A1:B1").ClearContents
Abraham