请问这个怎么解决？excel vba，错误438，对象不支持该属性或方法。

Question

这是上级部门发给我单位的一个工作表，在他们的电脑上能正常运行，在我单位单位电脑我挨个试遍了都是错误438，上级部门是win10+ office2016，我自己用wps2019和office2016分别在won7和win10上都试过，均无法运行，请问是怎么回事？代码如下：
  Sheets("未结件").Select
    ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("未结件").Sort.SortFields.Add2 Key:=Range("H1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal      —这是运行失败的一行。
    With ActiveWorkbook.Worksheets("未结件").Sort
        .SetRange Range("A1:L2000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Answer 1

试验office的时候要把wps卸载了;

Answer 2

把：“Sort.SortFields.Add2 Key:”替换成“Sort.SortFields.Add Key:”。