Copy rows that meet a certain criteria

Is there a way to select all rows in a list that contain a "yes" in the
first column of that list? I want a macro to copy only those rows with a
"yes" in the first column and paste those rows to another worksheet.

Columns("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="YES"
Selection.Copy
Sheets("Hoja2").Select
ActiveSheet.Paste


James wrote:
> Is there a way to select all rows in a list that contain a "yes" in the
> first column of that list? I want a macro to copy only those rows with a
> "yes" in the first column and paste those rows to another worksheet.