Convert Hourly Time Series Data From Rows To Single Column

I have A:1 - X365 filled with hourly energy prices for 2013. I need to convert these to a single column - A1:A8760. I have tried writing some code and some macros with no success.

If I were to do it manually 365 times, the macro would look like this:

Copy Row A1:X1
select sheet 2
Paste Special > Transpose (fills A1:A24)

repeat for rows 2-365

Tried using this from a previous post, but it takes A1:A24 then B1:B24 and so on and makes them a single column - so it doesn't work unfortunately.

Sub MakeColumn()
Dim rng As Range
Dim LastRowSrc As Long
Dim LastRowDst As Long

Set rng = Worksheets("Sheet1").Range("A1")

[Code] .....