Replace Table with New Data

I have a workbook. In Sheet1 ("Source") I have Table1. In sheet2 ("Formulas") I have various formulas that reference Table1.

On a regular basis I want to delete all of the information in Table1 and replace it with updated data. This is the start of my current code, which deletes everything under the headers and converts my table to a range:

MopMos.Sheets("Source").Activate
    
    With ActiveSheet.ListObjects("Table1")
        If Not .DataBodyRange Is Nothing Then
            .DataBodyRange.Delete
        End If
        .Unlist
    End With

I then open another workbook, gather a bunch of data, copy it, and paste it back like this:

MopMos.Sheets("Source").Activate
    With ActiveSheet
        .Range("A1").PasteSpecial xlPasteValues
        .ListObjects.Add(xlSrcRange, .UsedRange, , xlYes).Name = "Table1"
        .ListObjects("Table1").TableStyle = "TableStyleLight2"
    End With

My problem is my formulas. For instance, this one:

IF(COUNTIF(B3,"Total"),SUM(C1:C2),SUMIFS(Table1[MONETARY_AMOUNT],Table1[FY],A3,Table1[GR/TANF],B3))

That's the way it starts out before I start my macro. Once I finish, the formula changes to

=IF(COUNTIF(B3,"Total"),SUM(C1:C2),SUMIFS(Source!$I$2:$I$2,Source!$G$2:$G$2,A3,Source!$O$2:$O$2,B3))

I'm thinking if I turn off Calculation that might fix that problem, but I need to calculate on my other workbook.