Transpose

TMShucks thanks for the correction

this one maybe faster but the problem with loops is that they are slow

Sub ptesti()
Application.ScreenUpdating = False
Dim xRow As Long, xCol As Long, CountCol As Long, CountRow As Long, rRow As Long
rRow = 2
With Sheets("ORIGINAL")
    xRow = .Cells(Rows.Count, 1).End(xlUp).Row
    xCol = .Cells(1, Columns.Count).End(xlToLeft).Column
For CountCol = 9 To xCol
For CountRow = 2 To xRow
  Sheets("Output").Range("A" & rRow).Value = .Cells(1, CountCol).Value
 Sheets("Output").Range("B" & rRow).Resize(1, 6).Value = .Cells(CountRow, 1).Resize(1, 6).Value
 Sheets("Output").Range("H" & rRow).Value = .Cells(CountRow, CountCol).Value
rRow = rRow + 1
Next
Next
End With
Application.ScreenUpdating = True