Object doesn't support...on certain computers

Dear All,
I am a self taught VBA user and I'm sure my code is inefficient and sloppy but I usually end up getting it to do what I want. I've run into a snag and I'm completely lost. The following macro is a called macro that runs as intended on my machine. When my boss tries to run it (it's a tool for him) he gets the following error: "Object doesn't support this propery or method". I've run it step by step on his machine and I think I've identified where it fails.

(FYI I am using Excel 2016 and he's using Excel 2013)

***UPDATE - I tried it on another coworker's machine with Excel 2016 and it worked find there as well

***UPDATE #2 - It also worked on a coworker's machine with Excel 2019.

Thanks in advance for your assistance.

Sub Sort_JobCosting()
Dim wB As Workbook
    Dim pE As Worksheet
    Dim cC As Worksheet
    Dim cA As Worksheet
    Dim cM As Worksheet
    Dim rO As Worksheet
    Dim jC As Worksheet
    Dim x As Integer
    Dim y As Integer
    Dim z As Double
    Dim userResponse As String
    Set wB = ThisWorkbook
    Set pE = wB.Worksheets("Paste Expense")
    Set cC = wB.Worksheets("Control Center")
    Set cA = wB.Worksheets("Calculator")
    Set cM = wB.Worksheets("CURRENT MONTH")
    Set rO = wB.Worksheets("Roster")
    Set jC = wB.Worksheets("Job Costing")
    x = 4
    y = 2
    z = 0
    jC.Select
    
Columns("A:I").Select
    jC.Sort.SortFields.Clear
'the next line is where it fails
    jC.Sort.SortFields.Add2 Key:=Range( _
        "E2:E1200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    jC.Sort.SortFields.Add2 Key:=Range( _
        "A2:A1200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    jC.Sort.SortFields.Add2 Key:=Range( _
        "F2:F1200"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With jC.Sort
        .SetRange Range("A1:G1200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Do Until jC.Cells(y, 1) = ""
jmp:
        If jC.Cells(y, 1) = jC.Cells(y + 1, 1) And jC.Cells(y, 5) = jC.Cells(y + 1, 5) And jC.Cells(y, 6) = jC.Cells(y + 1, 6) Then
        z = z + jC.Cells(y, 4).Value
        y = y + 1
        GoTo jmp
        Else
        z = z + jC.Cells(y, 4).Value
        Rows(y + 1).Insert shift:=xlDown, _
        CopyOrigin:=xlFormatFromLeftOrAbove
        jC.Cells(y + 1, 3) = "Total:"
        jC.Cells(y + 1, 3).HorizontalAlignment = xlRight
        jC.Cells(y + 1, 3).Font.Bold = True
        'If z = 0 Then z = jC.Cells(y, 4).Value2
        jC.Cells(y + 1, 4) = z
        'jC.Cells(y + 1, 4).NumberFormat = "0.00"
        jC.Cells(y + 1, 4).Font.Bold = True
        y = y + 1
        End If
    z = 0
    y = y + 1
    Loop
          
End Sub

Originally Posted by gcerulli

I've run it step by step on his machine and I think I've identified where it fails.

Care to share what line it errors on. Might be a clue.

This should be compatible with all Excel 2003 and later versions

Sub Sort_JobCosting()
    Dim wB        As Workbook
    Dim pE        As Worksheet
    Dim cC        As Worksheet
    Dim cA        As Worksheet
    Dim cM        As Worksheet
    Dim rO        As Worksheet
    Dim jC        As Worksheet
    Dim x         As Integer
    Dim y         As Integer
    Dim z         As Double
    Dim userResponse As String
    Set wB = ThisWorkbook
    Set pE = wB.Worksheets("Paste Expense")
    Set cC = wB.Worksheets("Control Center")
    Set cA = wB.Worksheets("Calculator")
    Set cM = wB.Worksheets("CURRENT MONTH")
    Set rO = wB.Worksheets("Roster")
    Set jC = wB.Worksheets("Job Costing")
    x = 4
    y = 2
    z = 0
    jC.Select
    
    jC.Columns("A:I").Sort Key1:=jC.Range("E1"), Order1:=xlAscending, _
                           Key2:=jC.Range("A1"), Order2:=xlAscending, _
                           Key3:=jC.Range("F1"), Order3:=xlAscending, _
                           Header:=xlYes, MatchCase:=False, _
                           Orientation:=xlTopToBottom, _
                           SortMethod:=xlPinYin
    
    Do Until jC.Cells(y, 1) = ""
jmp:
        If jC.Cells(y, 1) = jC.Cells(y + 1, 1) And jC.Cells(y, 5) = jC.Cells(y + 1, 5) And jC.Cells(y, 6) = jC.Cells(y + 1, 6) Then
            z = z + jC.Cells(y, 4).Value
            y = y + 1
            GoTo jmp
        Else
            z = z + jC.Cells(y, 4).Value
            Rows(y + 1).Insert shift:=xlDown, _
                               CopyOrigin:=xlFormatFromLeftOrAbove
            jC.Cells(y + 1, 3) = "Total:"
            jC.Cells(y + 1, 3).HorizontalAlignment = xlRight
            jC.Cells(y + 1, 3).Font.Bold = True
            'If z = 0 Then z = jC.Cells(y, 4).Value2
            jC.Cells(y + 1, 4) = z
            'jC.Cells(y + 1, 4).NumberFormat = "0.00"
            jC.Cells(y + 1, 4).Font.Bold = True
            y = y + 1
        End If
        z = 0
        y = y + 1
    Loop
    
End Sub