Getting Compile Error - Expected Range or Function right after updating to Excel 2016

[/COLOR][COLOR=#333333]Option Explicit[/COLOR]Sub Hearings()'    Application.ScreenUpdating = False    Application.StatusBar = False    Application.DisplayAlerts = False    Application.EnableEvents = False    Application.Calculation = xlCalculationManual'    Sheets("FLHearingsMaster").Select    Range("Q24").Select    Range(Selection, Selection.End(xlDown)).Select    Range(Selection, Selection.End(xlToRight)).Select    Selection.ClearContents'    Dim a, i As Long, myMin As String, AMPM As String, m As Object    With Range("J24", Range("J" & Rows.Count).End(xlUp))        a = .Value        With CreateObject("VBScript.RegExp")            .IgnoreCase = True            .Pattern = "(\d{1,2})( *([ap]m)|:(\d{2}) *([ap]m)?|(\d{2}) *([ap]m))"            For i = 1 To UBound(a, 1)                If TypeName(a(i, 1)) = "Double" Then a(i, 1) = _                Format$(a(i, 1), "hh:mm am/pm")                If .test(a(i, 1)) Then                    Set m = .Execute(a(i, 1))(0).submatches                    myMin = m(3) & m(5)                    If myMin = "" Then myMin = "00"                    AMPM = m(2) & m(4) & m(6)                    If Trim$(AMPM) = "" Then                        Select Case Val(m(0))                        Case 8 To 11: AMPM = " AM"                        Case Else: AMPM = " PM"                        End Select                    End If                    If Trim$(AMPM) = "" Then AMPM = " AM"                    a(i, 1) = m(0) & ":" & myMin & " " & AMPM                Else                    a(i, 1) = ""                End If            Next        End With        With .Columns(-4)            .Value = a: .NumberFormat = "h:mm AM/PM"        End With    End With    Range("M1:N1").Value = Now'    Range("I24").Select    Range(Selection, Selection.End(xlDown)).Select    Selection.Copy    Range("Q24").Select    ActiveSheet.Paste    Range("R24").Select    ActiveSheet.Paste    Range("S24").Select    ActiveSheet.Paste    Range("T24").Select    ActiveSheet.Paste    Range("U24").Select    ActiveSheet.Paste'    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=2, _    Criteria1:=Array("Broward", "Miami-Dade", "Palm Beach"), Operator:=xlFilterValues    Range("Table_FLHearingsMaster[[#Headers],[Office Coverage]]").Select    ActiveCell.FormulaR1C1 = "FTL"    Range("Table_FLHearingsMaster[[#Headers],[FTL]]").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Application.CutCopyMode = False    ActiveSheet.ShowAllData'    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=2, _    Criteria1:=Array("Hillsborough", "Pasco", "Pinellas"), Operator:=xlFilterValues    Range("Table_FLHearingsMaster[[#Headers],[FTL]]").Select    ActiveCell.FormulaR1C1 = "TPA"    Range("Table_FLHearingsMaster[[#Headers],[TPA]]").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Application.CutCopyMode = False    ActiveSheet.ShowAllData'    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=20 _    , Criteria1:="<>FTL", Operator:=xlAnd, Criteria2:="<>TPA"    Range("Table_FLHearingsMaster[[#Headers],[TPA]]").Select    ActiveCell.FormulaR1C1 = "Other"    Range("Table_FLHearingsMaster[[#Headers],[Other]]").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Range("Table_FLHearingsMaster[[#Headers],[Other]]").Select    ActiveCell.FormulaR1C1 = "Office Coverage"    Application.CutCopyMode = False    ActiveSheet.ShowAllData'    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=4 _    , Criteria1:=""    Range("Table_FLHearingsMaster[[#Headers],[Hearing Time]]").Select    ActiveCell.FormulaR1C1 = "Missing"    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Application.CutCopyMode = False    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select    ActiveCell.FormulaR1C1 = "Hearing Time"    ActiveSheet.ShowAllData'    ActiveSheet.ListObjects("Table_FLHearingsMaster").Range.AutoFilter Field:=7, _    Criteria1:="="    Range("Table_FLHearingsMaster[[#Headers],[Attorney Attending Hearing]]").Select    ActiveCell.FormulaR1C1 = "Missing"    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Range("Table_FLHearingsMaster[[#Headers],[Missing]]").Select    Application.CutCopyMode = False    ActiveCell.FormulaR1C1 = "Attorney Attending Hearing"    ActiveSheet.ShowAllData'    Application.Calculation = xlCalculationAutomatic    Range("$R$24").Select    ActiveCell.FormulaR1C1 = "=IF((RC[-10]=""Missing""), ""Yes"", ""No"")"    Range("$R$24").Select    Range("$R$24").Copy    Selection.AutoFill Destination:=Range( _    "Table_FLHearingsMaster[Missing Hearing Attorney]")    Columns("R:R").Copy    Columns("R:R").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    :=False, Transpose:=False    Application.CutCopyMode = False'    Range("$Q$24").Select    ActiveCell.FormulaR1C1 = "=TEXT(RC[-13],""mmm-yyyy "")"    Range("$Q$24").Select    Range("$Q$24").Copy    Selection.AutoFill Destination:=Range( _    "Table_FLHearingsMaster[Hearing Month  Year]")    Columns("Q:Q").Copy    Columns("Q:Q").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    :=False, Transpose:=False    Application.CutCopyMode = False'    Range("S24").Select    ActiveCell.FormulaR1C1 = "=IF((RC[-14]=""Missing""), ""Yes"", ""No"")"    Range("S24").Select    Selection.Copy    Application.CutCopyMode = False    Selection.AutoFill Destination:=Range( _    "Table_FLHearingsMaster[Missing Hearing Time]")'    Range("$T$24").Select    ActiveCell.FormulaR1C1 = "=IF((RC[-5]>=TODAY()),""Yes"", ""No"")"    Range("$T$24").Select    Range("$T$24").Copy    Selection.AutoFill Destination:=Range( _    "Table_FLHearingsMaster[Sale Date Set]")    Columns("T:T").Copy    Columns("T:T").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    :=False, Transpose:=False    Application.CutCopyMode = False    Application.Calculation = xlCalculationManual'    Rows("22:22").Select    Selection.NumberFormat = "0"    Range("Table_FLHearingsMaster").Select    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    Selection.Borders(xlEdgeLeft).LineStyle = xlNone    Selection.Borders(xlEdgeTop).LineStyle = xlNone    Selection.Borders(xlEdgeBottom).LineStyle = xlNone    Selection.Borders(xlEdgeRight).LineStyle = xlNone    Selection.Borders(xlInsideVertical).LineStyle = xlNone    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone'    Range("Table_FLHearingsMaster[#All]").Select    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort.SortFields.Clear    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _            "Table_FLHearingsMaster[New Hearing Date]"), SortOn:=xlSortOnValues, Order _                 :=xlAscending, DataOption:=xlSortNormal    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _            "Table_FLHearingsMaster[County]"), SortOn:=xlSortOnValues, Order:= _                 xlAscending, DataOption:=xlSortNormal    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _            "Table_FLHearingsMaster[Hearing Time]"), SortOn:=xlSortOnValues, Order:= _                xlAscending, DataOption:=xlSortNormal    ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort.SortFields.Add Key:=Range( _            "Table_FLHearingsMaster[Attorney Attending Hearing]"), SortOn:=xlSortOnValues _                , Order:=xlAscending, DataOption:=xlSortNormal    With ActiveWorkbook.Worksheets("FLHearingsMaster").ListObjects( _        "Table_FLHearingsMaster").Sort        .Header = xlYes        .MatchCase = False        .Orientation = xlTopToBottom        .SortMethod = xlPinYin        .Apply    End With'    Application.Calculation = xlCalculationAutomatic    Range("BI24").Select    ActiveCell.FormulaR1C1 = "=CLEAN((TRIM(PROPER(RC[-51]))))"    Range("BI24").Select    Selection.Copy    Range(Selection, Selection.End(xlDown)).Select    ActiveSheet.Paste    Columns("BI:BI").Copy    Columns("BI:BI").Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    :=False, Transpose:=False    Range("BI24").Select    Range("BI24").Copy    Range(Selection, Selection.End(xlDown)).Select    Selection.Copy    Range("J24").Select    ActiveSheet.Paste    Application.CutCopyMode = False    With Selection        .HorizontalAlignment = xlLeft    End With    Application.Calculation = xlCalculationManual'    Columns("BI:BI").Delete Shift:=xlToLeft    Range("Table_FLHearingsMaster[#All]").Select    Selection.Borders(xlDiagonalDown).LineStyle = xlNone    Selection.Borders(xlDiagonalUp).LineStyle = xlNone    With Selection.Borders(xlEdgeLeft)        .LineStyle = xlContinuous        .Weight = xlThin    End With    With Selection.Borders(xlEdgeTop)        .LineStyle = xlContinuous        .Weight = xlThin    End With    With Selection.Borders(xlEdgeBottom)        .LineStyle = xlContinuous        .Weight = xlThin    End With    With Selection.Borders(xlEdgeRight)        .LineStyle = xlContinuous        .Weight = xlThin    End With    With Selection.Borders(xlInsideVertical)        .LineStyle = xlContinuous        .Weight = xlThin    End With    With Selection.Borders(xlInsideHorizontal)        .LineStyle = xlContinuous        .Weight = xlThin    End With    Selection.RowHeight = 13'    ActiveWindow.ScrollColumn = 1    Cells.Select'    Application.ScreenUpdating = True    Application.StatusBar = True    Application.DisplayAlerts = True    Application.EnableEvents = True    Application.Calculation = xlCalculationAutomatic [COLOR=#333333]End Sub[/COLOR][COLOR=#333333]