Thanks for your reply i have forget to tell you.it should cut the text from active cell and past it to the first column. But i was changing the rows. Your script is addting to A1 only.

So, need to complete column. Means if select B3 it should add to B1. If i select D5 the it should add to D1.

My actual column is B.