VBA code to copy "Pivot like layout" to "data dump layout" d

Hello,

I have a spreadsheet that looks like this.

Name - Column Name 1 - Column Name 2 Column Name 3 - Column Name 4
Johnny - 5 - 0 - 0 - 4
Randy - 0 - 0 - 0 - 0
Sheila - 6 - 3 - 5 0

I would like to transfer non-zero values in a flat file format that would look like below :

HEADER - Column ID - Value
Johnny - Column Name 1 - 5
Johnny - Column Name 4 - 4
Sheila - Column Name 1 - 6
Sheila - Column Name 2- 3
Sheila - Column Name 3 - 5

No records are copied for Randy as they are all zero and likewise, column 2 and 3 values for Johnny as well as column 4 value for Sheila are also ignored.

BTW, the source Data (in pivot like layout) and target data (in flat file layout) are on separate worksheets.

Any insights ?