Creo que ya está solucionado, jejejeje. Me he dejado los cuernos, en el intento, pero al final, con una simple coletilla, funciona. No entiendo el porqué, ya que si el área de pegado es la misma hoja, no se necesita esa coletilla.
Si en el libro ese de ejemplo que he colgado,
insertas una nueva hoja, y al código que hay, le añades lo que está en rojo, ya verás como funciona
Código:
Sub probatina()
Range(Cells(8, 3), Cells(14, 5)).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(Cells(3, 3), Cells(4, 3)), _
CopyToRange:=Hoja2.Range(Range(Cells(19, 3), Cells(19, 5)).Address), _
Unique:=False
Hoja1.Range("C20") = "¡¡¡Coño, funciona!!!. Mira la hoja siguiente."
End Sub
Parece absurdo tener ese
"...Range(Range..." como anidado, pero así funciona. El método prueba-error es a veces infalible (aunque he estado a punto de decirte: "debe ser un bug de Excel, porque no tiene sentido que no funcione", jajaajaja).
Salu2