Can I do a Loop to Name cells based on other cells?

I have multiple worksheets that correspond to each Quarter which then feed another sheet with the compiled data and not the details about where those numbers came from.
I am looking to write a macro that Names all of the Totals Cells on the Quarter worksheets based on what account the totals are for, I have done it by hand a few times now but it is less than fun. I then reference the named cells on the Totals sheet instead of hand linking them.
I tried just manually writing out each line of code to Name the cells but it just stopped working after the second line (but showed no errors). It is also allowing me to just use the text that is in the referenced cell but I want to add to it.

As an example: I have an account named in B6 (PTH) and the totals are in B22 and B23, I would like to name B22 and B23 "PTHSKU4" and "PTHFACE4".
I would like to do a loop that only runs this option every 5th row after the initial starting point and end when the final 5th row is empty.

Any help is greatly appreciated!

I have attached a document with an example which will hopefully make more sense.