Excel cannot complete this task with available resources. Choose less data or close other

Hello everyone, I'm having an issue when I try to run a macro (16 different workbooks open):

"Excel cannot complete this task with available resources. Choose less data or closer other applications"

Here's the macro (I replaced the titles of the files for policies issues):

Sub ExportInfo()
'
' ExportInfo Macro
'
'
    Windows("ABCD.xlsm").Activate
    Sheets("QryPartPlanFTV").Select
    Range("A1:AF1").Select
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=16, Criteria1:= _
        "Visibilité 30 jrs"
        
    
    Windows("A.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:="2.01"
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("A.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    Windows("B.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "2.02", "2.03", "2.06", "2.09"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
Windows("B.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    Windows("C.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
 Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "2.14", "5.01", "5.11", "5.13", "5.17"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("C.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("D.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "2.12", "3.03", "3.04"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("D.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("E.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:= _
        "=3.01", Operator:=xlOr, Criteria2:="=3.06_08"
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("E.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("F.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:="5.18"
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("F.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("G.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "2.07", "4.12", "5.12", "5.15", "5.16"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("G.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("H.xlsx").Activate
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "2.13", "2.08", "3.07", "5.19", "5.07", "5.08"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
   
 Windows("H.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    Windows("I.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:=Array( _
        "4.01", "4.02", "4.03", "6.23", "6.24"), Operator:=xlFilterValues
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("I.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
    Windows("J.xlsx").Activate
    Sheets("New Data").Select
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Previous Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Windows("ABCD.xlsm").Activate
    ActiveSheet.Range("$A$1:$AF$99999").AutoFilter Field:=17, Criteria1:="6.11_12"
    Columns("A:AF").Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Windows("J.xlsx").Activate
    Sheets("New Data").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
(ETC.) I can't post the whole due to limit in texts.

What Gives? Seems like a memory problem, but I need these 16 files separated...

N.B.: Cross posted:

http://www.mrexcel.com/forum/excel-q...ml#post3317544

http://www.msofficeforums.com/excel/...html#post42156