Try:

Option Explicit

Sub Matrix()
   Dim wss As Worksheet
   Dim wsd As Worksheet
   Dim rs As Long  ' row src
   Dim cs As Long  ' col src
   Dim rd As Long  ' row dest
   
   Set wss = ActiveSheet
   Set wsd = ActiveWorkbook.Worksheets.Add ' make new sheet
   rs = 1
   cs = 1
   rd = 1
   
   'assume starts in A1
   While wss.Cells(rs, 1) <> ""
       While wss.Cells(rs, cs) <> ""
           wsd.Cells(rd, 1) = wss.Cells(rs, cs)
           rd = rd + 1
           cs = cs + 1
       Wend
       rs = rs + 1
       cs = 1
   Wend
   Set wss = Nothing
   Set wsd = Nothing
End Sub