I have a table where in column A I have Entities that receive Products and in row A - Entities that send products. In Intersections of EntitiyFrom and EntityTo I have values.

Entity1 Entity2 Entity3
Entity1 0 5 6
Entity2 12 0 2
Entity3 6 1 0

In many cases the value would be 0. So I want to get rid off 0 and paste the values in the following way:

Entity1 Entity2 5
Entity1 Entity3 6
Entity2 Entity1 12
Entity2 Entity3 2
Entity3 Entity1 6
Entity3 Entity2 1


My understanding is that I have to loop through the range and put the values into an Array. Afterwards, I need to transfer the data from Array into Excel. Can you help with the procedure?

I attach the file where I started to make the procedure but got stuck.

Thank you in advance.