excel排序代码导致损坏

Question

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

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

这段代码有什么问题吗？谢谢你的帮助！