将具有多个不相邻单元格的范围复制到相同单元格上的另一个工作表

I wrote the code below which works fine except that it takes forever and looks as if Excel is having an epileptic seizure.I wrote the code below which works fine except