copy value from above

[asad.ermo]

i want to copy value from above cell and paste up to 5 NON-Blank cells only
a file is attached

[bebo021999]

Could you fill in the expected results?

[asad.ermo]

No, time consuming it contains data up to 25,000 rows and takes lot of time. i need some VBA code

[JeteMc]

I don't believe that bebo was suggesting you do all the work manually, just asking if you could fill in the blank spaces in your sample file so that we have something with which to compare the results of our proposed formula/code.
That said I feel that I have an idea as to what you want and a way to get it using a formula:
1. Insert a new row one.
2. Put the following formula into cell C2: =IF(B2<>"",B2,IF(A2<>"",C1,""))
3. Copy down as far as needed
4. While the cells in column C are still selected copy (Ctrl + c) and paste special values (Ctrl + Alt + v > values) and then press the Esc key
5. While the cells in column C are still selected pull the column over to column B. You will be asked if you want to replace the data that is already in column B, select OK.
Let us know if you have any questions.