Suma discontinuas

Buenas tardes:

Expongo lo siguiente;

Tengo un archivo txt que importo a Excel (2003) y que después doy formato de
la siguiente forma:


Nombre Cuenta
Nombre cuenta Departamento Sucursal Enero Febrero Marzo Abril


Los datos en departamento son:

Almacen y Compras
Atencion a Clientes
Cobranza
Contabilidad
Cuentas especiales
Desarrollo
Direccion de Operaciones
Direccion General
General Corporativo
Gerencia Administrativa
Logistica Operaciones
Etc…

Existe una formula o un macro que me sume todos los datos que esten en la
columna de abril de cada concepto de la columna departamento.

Sin tener que ordenar y luego filtro con la formulasubtotales.

Gracias.