Excel - VBA (Formula- Updated)

SiddharthRout helped me with the following VBA codes last week.  I have since added more columns to the spreadsheet so the calculations will have to be done on differnet columns.  The attached spreadsheet includes the updated formulas.  The Calculations should be done on the Destination worksheet, 3 rows after the last data row.

Everything else should remain the same.

Codes:
Sub Sample()
    Dim wb As Workbook, ws As Worksheet
    Dim LastRow As Long, DestRow As Long
    Dim StrFile As String
    Dim msgFooter As String
   
    '~~> Footer Message
    msgFooter = "Note: Account detail reports were posted to the BOM and Service Reports Portal in the Specials section." & Chr(10) & _
            "Reports are called:" & Chr(10) & _
            "Connect Edelivery-New Accts Enrolled April 1-15" & Chr(10) & _
            "Connect SAC-New Accts With SAC April 1-15" & Chr(10) & _
            "Connect FreeForever IRA-New Accts Enrolled April 1-15"
     
   
    StrFile = Dir$(MyFolder & "*.xls")
   
    Do While Len(StrFile)
        Set wb = Workbooks.Open(MyFolder & StrFile)
        Set ws = Sheets("DESTINATION")
       
        LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row
        DestRow = LastRow + 3
       
        ws.Range("D" & DestRow) = "Complex Totals"
        ws.Range("G" & DestRow).Formula = "=SUM(G6:G" & DestRow - 1 & ")"
        ws.Range("G" & DestRow).Copy
        ws.Range("T" & DestRow & ":V" & DestRow & ",P" & DestRow & ":R" & DestRow & ",M" & DestRow & _
        ":N" & DestRow & ",J" & DestRow & ":K" & DestRow & ",H" & DestRow).PasteSpecial Paste:=xlPasteFormulas, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       
        ws.Range("I" & DestRow).Formula = "=H" & DestRow & "/G" & DestRow
        ws.Range("L" & DestRow).Formula = "=(K" & DestRow & "/J" & DestRow & ")-$I$" & DestRow
        ws.Range("O" & DestRow).Formula = "=(N" & DestRow & "/M" & DestRow & ")-$I$" & DestRow
        ws.Range("S" & DestRow).Formula = "=(Q" & DestRow & "+R" & DestRow & ")/P" & DestRow
        ws.Range("W" & DestRow).Formula = "=(U" & DestRow & "+V" & DestRow & ")/T" & DestRow
        ws.Range("X" & DestRow).Formula = "=O" & DestRow & "+S" & DestRow & "+W" & DestRow
       
        ws.Rows(DestRow).NumberFormat = "0"
        ws.Range("I" & DestRow & ",L" & DestRow & ",O" & DestRow & ",S" & DestRow & _
        ",W" & DestRow & ",X" & DestRow).NumberFormat = "0.00%"
       
        '~~> Add the relevent Text to the Footer
        With ws.PageSetup
            .LeftFooter = msgFooter
        End With
       
   
        Application.StatusBar = " File " & wb.Name & " is being processed..."
        wb.Close SaveChanges:=True
        StrFile = Dir
    Loop
   
    MsgBox "Done"
   
    Set ws = Nothing
    Set wb = Nothing
End Sub
31-WEST-52ND-ST.xls