Microeconomia

Tengo una base de datos en exel, con varias hojas, en una estan los datos originales ordenados por 14 columnas que son las variables, de estas debo escojer primero ciertos datos por años y pegar en una hoja, luego por categoria y años en hojas individuales por categorias con sumas totales y tendencias como el indice gini, luego en cada una de estas copiar las tres marcas mas importantes por laraozn de orden que en este caso es inversion alguine me ayuda por que son cientas.
Son al rededor de 120 categorias,, pero en la base de datos estan mas de 500
haber mas o menos es asi
1.- Ir al fichero Catergorias marcas a la hoja CatMar
2.- Rechenar la siguiente información para las 129 categorías:
Total Marcas CDM > 1%
> 1% incluyendo MDD Número de marcas con cuota de mercado mayorigual que 1% sin Marca del distribuidor
> 1% sin MDD Número de marcas con cuota de mercado mayor igual que 1% incluyendo Marca del distribuidor
Top 3 Sumatorío Cuota de mercado top 5 marcas (ojo categorías con marcas no agrupadas).
Top 5 Sumatorío Cuota de mercado top 3 marcas (ojo categorías con marcas no agrupadas).
Marca lider Marca con mayor Cuota de mercado
Marca lider 2 Subjetiva(acondicionadores Elvive y Fructis, Cacao Nestle)
Marca lider 3 Subjetiva (acondicionadores Fructis)
Marca secundaria 1 La principal o sí hay mucha dispersión una marca relevante no lider (Gliss en acondicionadores, ya que Tresseme es un lanzamiento
3.- ¡OJO! Hay categroías en las que no están agrupadas las marcas (ejemplo acondicionador)
En estas categroías ir a Fichero 1 de promociones a lahoja Fab Mar y calcular el total marca (sumatorio medidas aditivas, borrar medidas no aditivas ejemplo precios o % ventas en promoción).
Recalcular las medidas no aditivas
Sub Macro4()
'
' Macro4 Macro
'
' Acceso directo: CTRL+r
'
ActiveWindow.LargeScroll ToRight:=-2
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CATEGORIA")
.PivotItems("ACEITE DEGIRASOL (L)").Visible = False
.PivotItems("ACEITE DE OLIVA (L)").Visible = False
.PivotItems("ACONDICIONADOR CABELLO (L)").Visible = False
.PivotItems("AGUA CON GAS (L)").Visible = False
.PivotItems("AGUA SIN GAS (L)").Visible = False
.PivotItems("ALIMENTO HUMEDO GATOS (KG)").Visible = False
.PivotItems("ALIMENTO HUMEDO PERROS (KG)").Visible = False
.PivotItems("ALIMENTO SECO PARAGATOS (KG)").Visible = False
.PivotItems("ALIMENTO SECO PERROS (KG)").Visible = False
.PivotItems("ANIS,PACHARAN,AGUARDIENTES(L)").Visible = False
.PivotItems("ATUN EN CONSERVA (KG)").Visible = False
.PivotItems("BACON/PANCETA (KG)").Visible = False
.PivotItems("BATIDOS (L)").Visible = False
.PivotItems("BEB.REF.OT.SABORES CON GAS(L)").Visible = False
.PivotItems("BEBIDAS DE TE(L)").Visible = False
.PivotItems("BEBIDAS GASEOSAS (L)").Visible = False
.PivotItems("BEBIDAS ISOTONICAS Y BIO (L)").Visible = False
.PivotItems("BOLLERIA DULCE (KG)").Visible = False
.PivotItems("BOMBONES CHOCOLATE (KG)").Visible = False
.PivotItems("BRANDY COGNAC ARMAGNAC (L)").Visible = False
.PivotItems("CACAO (KG)").Visible = False
End With
WithActiveSheet.PivotTables("Tabla dinámica1").PivotFields("CATEGORIA")
.PivotItems("CAFE EN GRANO (KG)").Visible = False
.PivotItems("CAFE MOLIDO (KG)").Visible = False
.PivotItems("CAFE SOLUBLE Y SUCEDANE(KG)").Visible = False
.PivotItems("CALDOS (KG)").Visible = False
.PivotItems("CAVA (L)").Visible = False
.PivotItems("CEREALES (KG)").Visible = False
.PivotItems("CERVEZA ESPECIALIDAD (L)").Visible= False
.PivotItems("CERVEZA RUBIA CORRIENT IMPORT (L)").Visible = False
.PivotItems("CERVEZA RUBIA NACIONAL (L)").Visible = False
.PivotItems("CERVEZA SIN ALCOHOL/LIGHT (L)").Visible = False
.PivotItems("CHAMPU (L)").Visible = False
.PivotItems("CHOCOLATE Y CACAO TAZA (KG)").Visible = False
.PivotItems("COLAS (L)").Visible = False
.PivotItems("COLONIAS (L)").Visible =...