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

 Windows("Workbook1.xls").Activate
    Rows("1:1").Select
   
    Selection.AutoFilter Field:=10, Criteria1:="<>0", Operator:=xlAnd
    Columns("B:K").Select
    Selection.Copy
    Windows("Workbook2.xls").Activate
    ActiveSheet.Paste

Any help appreciated


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