VBA how to store multiple value into a single cells

Dear All,

In excel i try to write a macro to allow me to detect the multiple row value and then write into the single cells

example :
1 result i wan : --- 1,2,3,4,4,5,
2
3
4
4
5
5