Convert Single Pair of Columns to 3 Column (Pair) List

I used the code to produce the result shown in the attached file ThreeColumns1.jpg
I tried to change the code to produce the result that I actually want in attached file ThreeColumns2.jpg
but without much success. Sadly my knowledge of the more advanced VBA code that you used is lacking.

I would be grateful if you would amend the code to:

1. Copy the Name and Subs values from cells starting on Row 8 (for example)
2. Copy and write the Name and Subs values starting at Row 9 and writing them into 3 columns with labels to produce the desired result (Three Columns2.jpg)
3. Change the column widths to set values as shown in ThreeColumns2.

Many thanks for providing the original code and I hope I am not asking too much for the additional modifications to the code.