filter copy and paste to different workbook

Hi

I am trying to filter copy and paste. When I record the macro it works fine, but when I try to run it does not add the filter
This is my code

Please Login or Register  to view this content.

Any help appreciated


Solved
needed Range("A1").Select not Rows("1:1").Select