Sub test()
Dim i, n As Long
Range("d5:f" & Rows.Count).ClearContents
n = Range("A1").End(xlToRight).Column
Range("d5").Resize(, 3).Value = Array(Range("a1").Value, Range("a2").Value, Range("b2").Value)
For i = 3 To n Step 2
Range("d" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = Array(Cells(1, i).Value, Cells(2, i).Value, Cells(2, i + 1).Value)
Next
End Sub