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.

PTH is not in B6. It is in D6.

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.

What 5th row are you talking about?

Thanks stnkynts,
Sorry I was looking at the wrong sheet of the file that I copied from and it has more columns between the accounts and less columns in the beginning.

So to correct my example question to match the attached workbook:

I want D6 to help populate what I want D22 to be named and then G6 to help populate G22 (so every third column) until it reaches an empty cell and then I want it to stop.
One of the issues I am having is I want D22 to be named PTHSKU4 and D23 to be name PTHFACE4. I can only figure out how to name it "PTH" by directly referencing D6.

mikerickson
Thanks!
Worked great. You saved me a ton of time, much appreciated.