Needed...formula for fixed total....

Backup your data and run: YTDTotals
I assumed you are working with whole numbers (that can be changed if not).

Sub YTDTotals()
    Dim nRow As Long, nLastRow As Long, nTotal As Long
    
    nLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("E2:E" & nLastRow).ClearContents
    For nRow = 2 To nLastRow
        nTotal = Cells(nRow, "F") _
                - Cells(nRow, "G") _
                - Cells(nRow, "H") _
                - Cells(nRow, "I") _
                - Cells(nRow, "J") _
                - Cells(nRow, "K") _
                - Cells(nRow, "L") _
                - Cells(nRow, "M") _
                - Cells(nRow, "N") _
                - Cells(nRow, "O") _
                + Cells(nRow, "S")
        Cells(nRow, "E") = nTotal
        Range("F" & nRow & ":S" & nRow).Value = ""
    Next nRow
End Sub