creating a list from a table

Thanks, JBeaucaire. I've added the attachment

Try this:

Sub x()

Dim rng As Range, n As Long

With Sheet1
    n = .Range("B4", .Range("B4").End(xlDown)).Rows.Count
    For Each rng In .Range("C3", .Range("C3").End(xlToRight))
        rng.Copy Sheet2.Cells(Rows.Count, "B").End(xlUp)(2).Resize(n)
        .Range("B4").Resize(n).Copy Sheet2.Cells(Rows.Count, "C").End(xlUp)(2)
        rng.Offset(1).Resize(n).Copy Sheet2.Cells(Rows.Count, "D").End(xlUp)(2)
    Next rng
End With

End Sub