VBA Matrix Conversion to Columns

Hello,

I am trying to figure out something this seems like it would be easy, but am having no luck. I need to take a matrix filled with data (the dimensions of the matrix are dynamic based on the data refresh) and convert it to columns as such:

A B C
A 1
B .4 1
C .3 .2 1

The matrix will actually be a Correlation table. So what I need to figure out is how to make three columns that pairs the data, essentially converting it from a matrix to columns like such:

A B C (<- column headings)
1 A A 1
2 A B .4
3 A C .3
4 B A .4
5 B B 1
6 B C .2
7 C A .3
8 C B .2
9 C C 1

Any ideas or suggestions would be much appreciated. Thank you.

Sub snb()
 sn = Cells(1).CurrentRegion

 For j = 2 To UBound(sn)
  For jj = 2 To UBound(sn, 2)
   c01 = c01 & vbCr & sn(j, 1) & "|" & sn(1, jj) & "|" & sn(j, jj)
  Next
 Next
 sn = Split(Mid(c01, 2), vbCr)

 Cells(1, 10).Resize(UBound(sn)) = Application.Transpose(sn)
 Columns(10).TextToColumns , , , , False, False, False, False, True, "|"
End Sub

Thank you. it was perfect. but if you want to see the last data in matrix you should replase Resize(UBound(sn)) with Resize(UBound(sn) + 1) .