Assuming that all one's values are together ...

Sub Main()
Dim rgData As Range, rgHeaders As Range, myRow As Range
Dim ZeroPos As Integer, OnePos As Integer
Dim ResultArray(1 To 6)

'Select Date without 1st Row (Classical way)
Set rgData = Sheet1.Range("B1").CurrentRegion
With rgData
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1,
..Columns.Count)
End With
Set rgHeaders = Sheet1.Range("A1").CurrentRegion.Rows(1)


For Each myRow In rgData.Rows
OnePos = myRow.Find(0).Column
ZeroPos = myRow.Find(1).Column
ResultArray(1) = rgHeaders.Cells(1, OnePos).Value
ResultArray(2) = rgHeaders.Cells(1, OnePos + 1).Value
ResultArray(3) = rgHeaders.Cells(1, OnePos + 2).Value
ResultArray(4) = rgHeaders.Cells(1, OnePos + 3).Value
ResultArray(5) = rgHeaders.Cells(1, OnePos + 4).Value
ResultArray(6) = rgHeaders.Cells(1, OnePos + 5).Value
ResultArray(1) = rgHeaders.Cells(1, ZeroPos).Value
'HERE CODE TO DO SOMETHING WITH THE ARRAY
Next myRow
End Sub