You didn't copy all of the macros I gave you
There's several other issues with your macro, so I added an Exit Sub after verified that only the desired sheets were going to be used
I also set Calculate to Manual since it was taking too long
Option Explicit
Sub RunMacroAcrossAllTabs()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
Select Case xSh.Name
Case "Instructions", "Accrual & PO Data", "Tab Name List", "Macro Buttons", "Summary FY Fcst3 & FY20 Budge", "EP Local", "Driver Definitions", "EP Global"
'skip
Case Else
Call RunCode(xSh)
End Select
Next xSh
Application.ScreenUpdating = True
End Sub
Sub RunCode(ws As Worksheet)
'Subtotal Code
Dim iCol As Integer
Dim i As Integer
Dim J As Integer
Application.ScreenUpdating = False
With ws
MsgBox .Name ' Debugging
Exit Sub
'Copy & Paste values
.Range("A1:N236").Copy
.Range("A1:N236").PasteSpecial xlPasteValues
.Range("K1:K236").Copy
.Range("K1:K236").PasteSpecial xlPasteValues
.Range("S1:T236").Copy
.Range("S1:T236").PasteSpecial xlPasteValues
'Diable marching ants around copied range
Application.CutCopyMode = True
i = 3
J = i
'Sort the data so like data is grouped together.
.Range("A5").CurrentRegion.Offset(1).Sort .Range("A12"), 1
'Loops throught Col A Checking for match then when there is no match then stop and add Subtotal
Do While .Range("A" & i) <> ""
If .Range("A" & i) <> .Range("A" & (i + 1)) Then
.Rows(i + 1).Insert
.Range("A" & (i + 1)) = "Subtotal " & .Range("A" & i).Value
For iCol = 13 To 73 'Columns to Subtotal
.Range(Cells(i + 1, 13), Cells(i + 1, 73)).FormulaR1C1 = "=SUBTOTAL(9,R" & J & "C:R[-1]C)"
Next iCol
.Range(Cells(i + 1, 1), Cells(i + 1, 73)).Font.Bold = True
.Range(Cells(i + 1, 1), Cells(i + 1, 73)).BorderAround ColorIndex:=1
i = i + 2
J = i
Else
i = i + 1
End If
Loop
End With
Application.ScreenUpdating = True
End Sub