Dim FilterRange As Range, DataSheet As Worksheet
Set DataSheet = ActiveSheet
Set FilterRange = Range("A1:F13")
FilterRange.AutoFilter Field:=3, Criteria1:="Yes"
FilterRange.SpecialCells(xlCellTypeVisible).Copy
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
DataSheet.Select
FilterRange.AutoFilter