SUMIF and LOOP till the last row

Hi

How would one go about creating a macro that would sum values in column G based on a condition in F ( a "SUMIF" basically) until the end of the range?

The condition would be so that the first blank cell in Column G (starting from column G9 ie Range("G9").End(xlDown).Offset(1,0) would contain the sum of everything above up until the word "Total" (or even the string of 5 characters from the left say "Total") appear in Column F - (the word Total appears a few times in column F, so it should detect the first applicable one)

The idea would be to have this repeated / looped until the end of the data range

Attached is an example and I hope what I have written makes sense

As for the worksheets:

"Final" is what it should look like (Blue Cells represent manual calculations)

"Working" Sheet is where I have it up to now

The sheet "Original" has a button that recreates everything up until where "Working" Sheet is

Sheet ("Tenant History Schedule") is scrap sheet

Thanks guys