Copy Cell Value on Outline Level to all rows under outline

Question

Hi I have an issue with a VBA routine I have been working on which performs a number of different functions and is working as expected.

I am trying to add an addition