Merge multiple excel rows into single column

PressĀ Alt + F11 to open the VB editor Select Insert/Module from the VB menu Paste this custom function
Function ToCSV(Rng As Range)
For Each Cell In Rng
Temp = Temp & Cell.Value & ", "
Next Cell
Temp = Mid(Temp, 1, Len(Temp) - 2)
MyMerge = Temp
End Function
Now select a cell and in the formula window type in =ToCSV(A1:A10) A1:A10 denotes the range.