Cut and paste by reference
 

Thanks, it works!
But I can't figure how to change which cells will go to the new line. I
just can't figure it out from the code.