Formula Subtracting a Fixed Table Total Row from a Variable Table Total Row

I have a macro that adds a 2 new tables to a sheet, a new table for each day to the right of the previous day tables (the 2 daily tables are vertically stacked). There are total rows in the new tables, and I need to insert a formula that calculates the difference between one of the total columns for the new day and the previous day's total. I recorded a macro that I planned to edit to include variable references rather than fixed references. I'm now stuck at how to address the second part of the formula below:

Cases051920[[#Totals],[Death as % of Total Cases]]

The "Cases051920" table name is the variable. Each day, it will be a different date. Today's is "Cases052020", and tomorrow's new table will need to reference this table - and so on. How do I turn this into a variable so the macro can insert the formula so that it references the correct prior day's table???

This is the recorded bit of code that I'm trying to adapt:

Range("NewChange[[#Totals],[Death as % of Total Cases]]").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=NewTable[[#Totals],[Death as % of Total Cases]]-Cases051920[[#Totals],[Death as % of Total Cases]]"

Update: I've partially solved my problem but am stumped at the error I get now.

I now get the RunTime Error 1004 application defined or object defined error when I get to this line:

Range("NewChange[[#Totals],[Death as % of Total Cases]]").FormulaR1C1 = DeathCalc

I am completely baffled, because it is the exact same syntax as I used in the two lines above it and those work 100% perfect. What am I doing wrong??

Dim nChangeNew As ListObject
Dim nTableNew As ListObject
Dim pTableDate As String '//Calculates date value for prior day table name
Dim pTableName As String '//Sets table name for prior day table based on dateadd calc from pTableDate
Dim pTable As ListObject '//Sets table as listobject for prior day table for death rate change calc
Dim DeathCalc As String '//defines formula to enter into death rate change of nChangeNew table
Dim ws As Worksheet


pTableDate = DateAdd("d", -1, Date)
pTableName = "Cases" & Format(pTableDate, "mmddyy")

Set ws = ActiveWorkbook.Sheets(8)
Set pTable = ws.ListObjects(pTableName)
Set nChangeNew = ws.ListObjects("NewChange")
Set nTableNew = ws.ListObjects("NewTable")
DeathCalc = "=nTableNew[[#Totals],[Death as % of Total Cases]]-pTable([[#Totals],[Death as % of Total Cases]]"


Range("NewChange[[#Totals],[Cases ]]").FormulaR1C1 = "=SUBTOTAL(109,[Cases ])"
Range("NewChange[[#Totals],[Deaths]]").FormulaR1C1 = "=SUBTOTAL(109,[Deaths])"
Range("NewChange[[#Totals],[Death as % of Total Cases]]").FormulaR1C1 = DeathCalc
nChangeNew.DataBodyRange(1, 2).FormulaR1C1 = "=R[-57]C-R[-57]C[-5]"
nChangeNew.DataBodyRange(1, 3).FormulaR1C1 = "=R[-57]C-R[-57]C[-5]"
nChangeNew.DataBodyRange(1, 4).FormulaR1C1 = "=R[-57]C-R[-57]C[-5]"

Ok, now it looks like the error is in the formula. If I change it to a generic formula, it works.

Solved it. Here's the solution if anyone ever comes across this:

Had to rewrite the formula to use the variable pTable reference by adding "& pTable&" to pull the variable name into the formula

DeathCalc = "=NewTable[[#Totals],[Death as % of Total Cases]] -" & pTable & "[[#Totals],[Death as % of Total Cases]]"