Преобразовать двухмерную матрицу со значениями в матрицу, где каждому значению соответствует одна строка

Sub tt()
    Dim a(), i&, ii&, x&
    a = [a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 3)
    For i = 2 To UBound(a)
        For ii = 2 To UBound(a, 2)
            x = x + 1
            b(x, 1) = a(i, 1)
            b(x, 2) = a(1, ii)
            b(x, 3) = a(i, ii)
        Next
    Next
    Workbooks.Add(1).Sheets(1).[a1].Resize(x, 3) = b
End Sub

Sub tt()
    Dim a(), i&, ii&, x&
    a = [a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * UBound(a, 2), 1 To 3)
    For i = 2 To UBound(a)
        For ii = 2 To UBound(a, 2)
            x = x + 1
            b(x, 1) = a(i, 1)
            b(x, 2) = a(1, ii)
            b(x, 3) = a(i, ii)
        Next
    Next
    With Workbooks.Add(1).Sheets(1).[a1].Resize(x, 3)
        .Columns(3).NumberFormat = "0.00%"
        .Value = b
    End With
End Sub