yescuder

Ese calculo lo debes hacer en los datos no en la tabla, es decir, en una columna nueva pones la agrupación que quieres, ya se un valor o una fórmula, y luego en ves de llevar el campo Fecha_Cob a la tabla dinámica llevas el nuevo campo.

En el evento click del botón debes poner lo siguiente dim hora as string hora=range("D4").value sheets("Hoja").Name=hora

Debes programar el evento Open del libro ("WorkBook"), y allí le dices por ejemplo que no muestre las barras de herramientas.