VBA for Autosum up on multiple cells

Dear excel experts i need very urgent help on my file. This file is done every month end. Here is the story. i receive a raw data extracted from accounting software and i do formating on it. Reapplying sums, coloring, bordering.... etc. My problem is when i record a macro to autosum up all of my "sub" categories. Excel just captures static addresses. I want to make this sum range dynamic. because every month record numbers vary. please have a look at my attached file. I looked for a solution for this matter for whole night couldn't find anything. Can be there any easy way to do it automatically, dynamicaly?