Sort Error on open

[Evapar18]

Recently I added the code below to do some auto sorting with a button. It works great and I don't recall any problems after I first made it (couple weeks ago). Now when I open the file, use the sort button, save it close it and reopen the file, it prompts me to repair the file. If I save the file without using the button it does not prompt me with an error.

I don't understand what this error message means, much less how to fix it.

Code:

Private Sub CommandButton1_Click()

With ActiveSheet.Sort
     
     .SortFields.Add Key:=Range("N8"), Order:=xlDescending
     .SortFields.Add Key:=Range("D8"), Order:=xlAscending
     .SetRange Range("C8:N250")
     .Header = xlYes
     .Apply
  
End With


ActiveSheet.ListObjects("Table3").Range.AutoFilter Field:=13, Criteria1:= _
        "1"


End Sub

Error log:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?><recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main"><logFileName>error109640_01.xml</logFileName><summary>Errors were detected in file 'C:\Users\scott.baugh\Documents\GEASWUG\GEASWUG ALL Contacts_Registration.xlsm'</summary><removedRecords><removedRecord>Removed Records: Sorting from /xl/worksheets/sheet2.xml part</removedRecord></removedRecords></recoveryLog>

 

[Evapar18]

Here is the file.

Put a "Yes" under the RSVP column header and over on the 2nd sheet click the green sort button.

https://drive.google.com/open?id=1Grx1VSTdS98h8eGgsWc5J94gSXR8fPkE

 

[Fluff]

Try

With ActiveSheet.Sort
     [COLOR=#ff0000].SortFields.Clear[/COLOR]
     .SortFields.Add Key:=Range("N8"), Order:=xlDescending
     .SortFields.Add Key:=Range("D8"), Order:=xlAscending
     .SetRange Range("C8:N250")
     .Header = xlYes
     .Apply
  
End With

 

[Evapar18]

Perfect!

Thank you that was it.

 

[Fluff]

You're welcome & thanks for the feedback