Copy and Paste Filtered Data

I need to copy all the filtered data only from "Sheet1" over to "Members" currently I am just having it select and copy / paste, but this takes a great deal of time. I've looked through some forums to try and figure this out, but can't seem to locate a helpful answer, any ideas?

This is what I currently have:

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

Thank you!