Looping through crosstab worksheet

I am trying to loop through a cross tab worksheet and have identified I am missing a few pieces.

1st-I need to have a variable for the count across the number of columns. This is for a group of stores, so the number will change.

2nd-I need to effectively change the format from a cross tab (stores running across the top of column headings) to more of a tabular format. Copying and repeating the header down the 1st column and adding the values.

Attached is the spreadsheet in txt format. Essentially, Column A would be populated by row 2, columns b and c would be repeated for each store. Each store is found for D:CJ, with row 2 being the store number.

What would the vba look like to make this work? Thanks for any help that you may be able to provide.