The error I have received is:

Run-time error 57121: application-defined or object-defined error

The portion of the code is:

Sheets("Submitted").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False

This macro pulls all of the rows with a certain piece of content off of each sheet and puts them in order on a new sheet.

The macro itself runs through multiple sheets successfully, but when it hits "Submitted" it is giving the error message.

Example of the part that runs successfully:

Range("A65536").End(xlUp).Offset(1, 0).Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "IN PRESS"
Range("A65536").End(xlUp).Offset(1, 0).Select

Sheets("In Press").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False

Range("A65536").End(xlUp).Offset(1, 0).Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "SUBMITTED"
Range("A65536").End(xlUp).Offset(1, 0).Select

Sheets("Submitted").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("A1:A2"), CopyToRange:=Range("A65536").End(xlUp).Offset(1, 0), Unique:=False



I'm not a programmer, but someone helped me prepare this code years ago. Suddenly, today this has stopped working. Can you help me resolve the problem?

Thank you very much in advance!