私のPCでは正常に動くマクロが、他のPCでは途中でエラーになり止まる。

いつもお世話になっております。

今回、エクセルマクロがエラーになるので質問させて頂きました。

【エラー内容】
私のPCでは正常に動くマクロが、他のPCでは途中でエラーになり止まってしまいます。
番号順に並び替える命令の部分でエラーで止まっています。

・実行時エラーは「438」
・エラーは下記コードの
** ActiveWorkbook.Worksheets("支払申請一覧表").Sort.SortFields.Add2 Key:=Range( _
"A2:A1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal**

・エクセルのバージョンはどちらも「2016」
・マクロのセキュリティーはどちらも「すべてのマクロを実行する」
・PCは「Windows10」
・私のExcelファイルをそのまま他のPCに導入

  MsgBox "並び替え前"
             '番号昇順に並べ替え
             Windows("支払申請一覧表.xlsm").Activate
             
             Columns("A:N").Select
    ActiveWorkbook.Worksheets("支払申請一覧表").Sort.SortFields.Clear
   ** ActiveWorkbook.Worksheets("支払申請一覧表").Sort.SortFields.Add2 Key:=Range( _
        "A2:A1048576"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal**
    With ActiveWorkbook.Worksheets("支払申請一覧表").Sort
        .SetRange Range("A1:N1048237")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With