Help creating a matrix table

Sub matrixtable()

Dim i As Long, j As Long, k As Long
Range("F:H").Clear

k = 2
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
j = Application.WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 5)))
Select Case j

Case Is = 1
Cells(k, 7).Value = Cells(i, 2).Value
Cells(k, 6).Value = Cells(i, 1).Value
k = k + 1
Case Is = 2
Cells(k, 7).Value = Cells(i, 2).Value
Cells(k, 8).Value = Cells(i, 3).Value
Cells(k, 6).Value = Cells(i, 1).Value
k = k + 1
Case Is = 3
Cells(k, 7).Value = Cells(i, 2).Value
Cells(k, 8).Value = Cells(i, 3).Value
Cells(k + 1, 7).Value = Cells(i, 2).Value
Cells(k + 1, 8).Value = Cells(i, 4).Value
Cells(k + 2, 7).Value = Cells(i, 3).Value
Cells(k + 2, 8).Value = Cells(i, 4).Value
Cells(k, 6).Value = Cells(i, 1).Value
Cells(k + 1, 6).Value = Cells(i, 1).Value
Cells(k + 2, 6).Value = Cells(i, 1).Value
k = k + 3

Case Is = 4
Cells(k, 7).Value = Cells(i, 2).Value
Cells(k, 8).Value = Cells(i, 3).Value
Cells(k + 1, 7).Value = Cells(i, 2).Value
Cells(k + 1, 8).Value = Cells(i, 4).Value
Cells(k + 2, 7).Value = Cells(i, 2).Value
Cells(k + 2, 8).Value = Cells(i, 5).Value
Cells(k + 3, 7).Value = Cells(i, 3).Value
Cells(k + 3, 8).Value = Cells(i, 4).Value
Cells(k + 4, 7).Value = Cells(i, 3).Value
Cells(k + 4, 8).Value = Cells(i, 5).Value
Cells(k + 5, 7).Value = Cells(i, 4).Value
Cells(k + 5, 8).Value = Cells(i, 5).Value
Range(Cells(k, 6), Cells(k + 5, 6)).Value = Cells(i, 1).Value

k = k + 6

End Select


Next i

End Sub

This code returns the intended output in column F:H in my sheet. For ~1500 rows in cols A-E the code runtime was ~3 seconds in my sheet. If necessary the code can be changed and executed in the main memory which would speed up the runtime significantly. The attached sample file doesn't contain the macro because for some reason i can't attach a macro-enabled Excel file anymore.

=SUM(
    (MMULT(--($B$2:$E$25=G3), TRANSPOSE(--(COLUMN($A$1:$D$1)>0)))>0 )*
    (MMULT(--($B$2:$E$25=H3), TRANSPOSE(--(COLUMN($A$1:$D$1)>0)))>0 )
)

This formula was contributed by SergeiBaklan in an earlier discussion and i adapted it for your task.