Armando Esteban Brito

Dim hoja As Worksheet For Each hoja In ActiveWorkbook.Worksheets If hoja.Name <> "INTEGRANTES" Then hoja.Visible = False End If Next hoja Este procedimiento oculta todas las hojas excepto la hoja integrantes

para obtener la ultima fila con dato coloca Fila= range("I"&rows.count).end(xlup).row Y eso lo incorporas a tu rango

Podrías subir una foto de tu código

Deberías subir una imagen como quieres la estaditica

Se me ocurre generar una clave por cada producto y en otro sector de la hoja tener los valores únicos para luego a través de un contar. Si comparar

Cuando busques la información captura la dirección con activell. Adderess para después saber en qué celda debe pegar la información

Al realizar con esos datos aparece como corresponde, ¿por o que veo en tu imagen hay algunos datos que se repeiten o no tienen sucursal?

Crea una macro que te importe los datos a excel y luego en excel extraes la información.

Y si lo importas y después en excel con una Macro limpias los datos

Dale un formato tabla a la base y luego crea la tabla dinámica para sacar el conteo