Juan Carlos González Chavarría

Si tengo el instalador pero no recuerdo el tamaño para enviarlo por correo.

Para simplificar las cosas yo utilizaría una Tabla Dinámica con la cual puedo hacer muchos análisis.

Primero, espero que no tengas celdas combinadas porque eso te daría problemas. En segundo lugar, me parece que sería más fácil si en la hoja2 quitaras el filtro un momento y pegaras tu información para luego aplicar un ordenamiento y nuevamente tu filtro.

Eso solo por medio de programación.

Perdona pero no entiendo bien tu consulta.

Por lo general llama el diccionario en Word y haces el cambio para que afecte Excel.

=SumaProducto((A1:A100=D1)*Max(B:B))

Pon el código que estás utilizando. Yo ayudo a solucionar, no doy soluciones completas.

Pon el código para analizarlo.

Dim MiRango As Range Range("C2").Select Set MiRango = Range(Selection.End(xlDown), Selection.End(xltoRight)).Select For Each Cell In MiRango