excelsorting代码导致腐败

我有一个Excel文件，在其中一个VBA子目录中，每次添加新行时，都有一些代码可以sorting，整个表格也是如此。 这个子工作和数据sorting，但是当我保存文件，退出，并再次打开它说，该文件已损坏，如果我想尝试修复它。 当它修复文件时，它指向sorting代码作为问题。 这是我用来sorting的代码：

Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Raw Data") Dim ws As Worksheet Set ws = ActiveWorkbook.Worksheets("Raw Data") lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row With ws.Sort.SortFields .Clear .add Key:=ws.range("A2:A" & lMaxRows + 1), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal .add Key:=ws.range("B2:B" & lMaxRows + 1), SortOn:=xlSortOnValues, _ Order:=xlAscending, DataOption:=xlSortNormal End With With ws.Sort .SetRange ws.range("A1:S" & lMaxRows + 1) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 

这个代码有什么内在的错误吗？ 谢谢您的帮助！