I would like to write a macro to copy a cell value to a new row.

Example
acol1 acol2 acol3 acol4 acol5 acol6 acol7
bcol1 bcol2 bcol3 bcol4 bcol5 bcol6
ccol1 ccol2 ccol3 ccol4 ccol5 ccol6 ccol7
dcol1 dcol2 dcol3 dcol4 dcol5

i would like to do sth that all the cell from col6 to col9 will go to the new row with other values remain the same.

The result will be sth like
acol1 acol2 acol3 acol4 acol5
acol1 acol2 acol3 acol4 acol6
acol1 acol2 acol3 acol4 acol7
bcol1 bcol2 bcol3 bcol4 bcol5
bcol1 bcol2 bcol3 bcol4 bcol6
ccol1 ccol2 ccol3 ccol4 ccol5
ccol1 ccol2 ccol3 ccol4 ccol6
ccol1 ccol2 ccol3 ccol4 ccol7
dcol1 dcol2 dcol3 dcol4 dcol5

Here is my code
Please Login or Register  to view this content.
I dont know why there will be many blank rows created and the content of the file will be displayed after the blank rows..... but i dont know how to correct it, pls help.