Sumar columnas creando subtotales y sustituyéndolos según los períodos deseados, utilizando VBA

Hola:

Solicitando su ayuda estimados, en el caso de este archivito que es parte de un estado de resultados contable del cual tenemos los diferentes conceptos en las horizontales y en las verticales los meses del año.

Lo que deseo es que a través de una macro se obtengan subtotales parciales y totales, en este ejemplo:

1. Si la consulta es de ENERO-JUNIO inserte subtotal en la columna H, en cada una de las filas por $ 600

2. Si la consulta es de ENERO-AGOSTO inserte subtotal en la columna J en cada una de las filas por $ 800

2. Y a su vez, en la columna total, siga 'totalizando' los $ 1,200, o sea, que de acuerdo al rango de la consulta fuese actualizando sin moverse de los $ 1,200 totales, (600+600) u (800+400)

No sé si el ingreso de los datos de consulta puedan darse a través de userform

Perdón por la lata pero la verdad es que soy novatón y he generado una macro con el wizard pero es demasiado larga y lenta.

Les agradezco el apoyo y muchas Gracias!!!

Saludos!!

Libro2.xls