Thanks for your help. Your codes work fine. But Your codes only works if the entire column has contents.
For e.g. Cell A1:A5 must be filled in order for the macro to work. If A1 to A3 is filled but A4 is empty cell and then A5-A7 if filled then the macro will have a error. What I mean is that there must not be any empty cell in between for your codes to work.
A sample picture of what i mean
Attachment 4820

How can I solve this problem?