Solved: how to autofilter then to paste

[helai]

I want to past some contents from one sheet to another sheet
the code like bellow:
[vba]
Worksheets("sheet1").Activate
lastrow = ActiveSheet.Range("A65536").End(xlUp).Row
Selection.AutoFilter Field:=3, Criteria1:="=123", Operator:=xlOr, _
Criteria2:="=456"
Range("a" & lastrow).SpecialCells(xlCellTypeVisible).Copy
Worksheets("errlist").Select
Sheets("errlist").Paste Destination:=Worksheets("errlist").Range("a1")
[/vba]
but it prompt a error message,just like say
worksheet 's paste function is failure

even I use activesheet.past is also wrong
winxp+office2003

how to solve it?

[Bob Phillips]

Cross-posted at JMT

helai, please read this message to cross-posters