Issue with Copying from one sheet to another

Change this part

With sws.Rows(26)
    .AutoFilter field:=3, Criteria1:="<>"
End With

To..

With sws.Rows(25)
    .AutoFilter field:=1, Criteria1:="<>"
End With