FYI:

For "Grand Total" you could use ..

=SUMIF($A:$A,"TOTAL",D:D)


Copy across