Thanks a lot jolivanes. I just changed sheet names and add some small things.
Now I plan to modify this code to copy from different sheets and paste it to different sheets.
From every worksheet "U_Emiss_t" to one worksheet "All_U_Emiss"
From every worksheet "R_Emiss_t" to one worksheet "All_R_Emiss".
Anyway you saved me tons of time. Thank you again.