Copy and Paste Filtered Data

Do either of these help any?

Sub r5swank2()

Application.ScreenUpdating = False

Sheets("Sheet1").Select
Range("A1").Select
Selection.AutoFilter

ActiveSheet.Range("$A$1:$AC$5543").AutoFilter Field:=14, Criteria1:="YES"
Cells.Select
Range("E1").Activate
Selection.Copy
Sheets("Members").Select
Cells.Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ActiveSheet.Range("$A$1:$AC$5543").AutoFilter Field:=14
Range("E2").Select
Selection.End(xlToLeft).Select
Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

Not sure this one does what you want so try on a copy first.

Sub r5swank()

Application.ScreenUpdating = False

Sheets("Sheet1").Activate

    With Range("$A$1:$AC$5543")
    
        .AutoFilter Field:=14, Criteria1:="YES"
        .SpecialCells(xlCellTypeVisible).EntireRow.Copy Sheets("Members").Range("A" & Rows.Count).End(3)(2)
        
    End With
    
ActiveSheet.AutoFilterMode = False

Application.ScreenUpdating = True


End Sub