Transpose

Slight modification to Pike's code to pick up on the blank column:

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

Regards