Excel 2013 page subtotals in footer

I have a multi sheet workbook and for one of the worksheets, I want to include subtotals for one column in the footer, I've copied the following code from "Mr Excel" which worked for him but creates a "1004 error" for me:

Sub PrintWithSubTotals()


    'info
    FirstDataRow = 6
    RowsPerPage = 25
    ColToTotal = 56
   
    'find how many rows today
    HeadRow = FirstRowData - 1
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
    PageCount = (FinalRow - HeadRow) / RowsPerPage
    PageCount = Application.WorksheetFunction.RoundUp(PageCount, 0)
   
    For i = 1 To PageCount
        ThisPageFirstRow = (i - 1) * RowsPerPage + HeadRow + 1
        ThisPageLastRow = ThisPageFirstRow + RowsPerPage - 1
        TotalThisPage = Application.WorksheetFunction.Sum(Cells(ThisPageFirstRow, ColToTotal).Resize(RowsPerPage, 1))
   
THIS IS WHERE THE ERROR POPS UP
   
        'change footer for this page
       Application.PrintCommunication = False
             
        With ActiveSheet.PageSetup
            .RightFooter = "20. SubTotal: $" & Format(TotalThisPage, "#,##0.00")
        End With
        Application.PrintCommunication = True
       
        'print this page
        ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True, IgnorePrintAreas:=False
       
    Next i
       
       End Sub