Filtro Avanzado con Macro

[axelroma81]

Imploro su ayuda, necesito hacer un informe que me tomaría semanas hacer, tengo ya más de 5 días averiguando, y a lo que veo lo que necesito es una macro con filtro avanzado, según yo lo hago bien, pero no SE QUE ESTOY HACIENDO MAL, por que no funciona.

Requiero que en otra hoja me aparezcan todas filas que coincidan con el nombre de una empresa.(SON DECENAS DE EMPRESAS QUE SE REPITEN CIENTOS DE VECES)

Lo estoy haciendo asi
Copio la fila de nombres de campos en otra hoja
Inicio la grabación de la macro
Voy al filtro avanzado, copiar en otro lugar
Selecciono el rango de la lista (que esta en otra hoja)
Selecciono el rango de criterios, que es la fila de nombres de campos que copie, mas otras dos filas sin datos… también intente poner el nombre de la empresa completo y usando los *asteriscos*. Abajo del que le corresponde.
Selecciono donde se va a copiar
Entonces me aparecen los datos de la otra hoja COMPLETOS
Detengo la macro
La ejecuto poniendo el nombre de la empresa en donde esta el rango de criterios, he intento filtrar y no filtra nada.

A lo intente màs de 10 veces, A veces me aparece error 1004, a veces nada, pero no funciona… Que estoy haciendo mal???

Por su tiempo, molestias y atención mil gracias!!!

Sub FILTROAVANZADO()
'
' FILTROAVANZADO Macro
'
'
Range("A6").Select
Sheets("modific").Range("A1:M22132").AdvancedFilte r Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:M3"), CopyToRange:=Range("A12"), Unique:=False
End Sub