Macro to lists all values in a range, and add value of another cell in adjacent cell

Hey guys,

I have a table that has names in column A131:A172
In B131:F172 - different values, including empty cells.
I need a macro that lists each value found in B131:F172, and copy them in cells starting from cell B174, as well as list the respective name in cells starting from cell A174. (values can repeat, no need to be unique)

For example A131 is John. D131 is 5. The macro will put in A174 John and in B174 will put 5.
Then F131 if it is again 5, to list A175 John, B175 to list 5.
Then to collect the values from Row 132, 133, etc.

Is this possible?

Thank you in advance!