multiple columns data append in single column

Hi,
I have data in columns, I need to append all data in cloumns to a single column.

input data
a 1 g 2
b 2 h 3

output req:
a
b
1
2
g
h
2
3

Try this macro.

Please Login or Register  to view this content.

Open up the VBA editor by hitting ALT F11

Insert a new module by hitting Insert - Module

Paste the macro into the empty sheet

Hit ALT F11 to get back to the worksheet.

Run the macro by going to tools-macro in Excel 2003 or the view ribbon in Excel 2007.

This formula for 6 row , 4 column range ( change according to your range)
=INDEX($A$1:$D$6,IF(MOD(ROW(),6)=0,6,MOD(ROW(),6)),INT((ROW()-1)/6)+1)

Apply the formul from 1st row to down