Copy 4 columns into 1

I'm trying to copy data from a number of columns into one column.

before.png

the pic above is what the data looks like currently. And the pic below is what I'm trying to do.

After.png

Insert a new column A.
In At put this formula:

=OFFSET($B$1, MOD(ROW()-ROW($A$1),ROWS($B$1:$B$5)), TRUNC((ROW()-ROW($A$1))/ROWS($B$1:$B$5)),1,1)

the red text is the amount of rows update accordingly.

Drag down the formula so all data is included. Copy and paste special values in column A. Then highlight column A and select Go to Special... from the Find & Select menu on the Home ribbon.
Select Constants and only have "Numbers" checked. Then hit OK.
This should highlight all the 0's as everything else you have listed is text technically. With all 0's highlighted delete cells and shift up.

Maybe try assigning name to range called MyData then use the formula and drag down:

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)