Hola Hector, mira asi aplique mi filtrado por VBA
'Selecciono la hoja de datos DATOS
Sheets("DATOS").Select
'Adiciono unas cuantas y las renombro
Sheets.Add
Sheets("Hoja1").Select
Sheets("Hoja1").Name = "GA1"
Sheets.Add
Sheets("Hoja2").Select
Sheets("Hoja2").Name = "GA2"
Sheets.Add
Sheets("Hoja3").Select
Sheets("Hoja3").Name = "GA3"
Sheets.Add
Sheets("Hoja4").Select
Sheets("Hoja4").Name = "GA4"
'Selecciono la hoja de datos DATOS
Sheets("DATOS").Select
'Aplico los filtrados a las columnas deseadas
Selection.AutoFilter Field:=1, Criteria1:="Gestión de Aplicaciones"
Selection.AutoFilter Field:=4, Criteria1:="BARRANCA"
Selection.AutoFilter Field:v, Criteria1:="1"
'PARA SELECCIONAR LOS TIPOS GA1
Selection.AutoFilter Field:x, Criteria1:="GA1"
'De aki para adelante aplique tu ejemplo
Gracias de nuevo
Leer las respuestas