VBA怎么实现把每列数据向右复制一列

VBA如何实现把每列数据向右复制一列。
要处理EXCEL数据。需要在EXCEL中增加一个按钮，写一段VBA，实现从U列数据开始，（U4：U40）-（CN4：CN40）的数据，自动向右复制一格，U列保持不动。也就是说：（U4:U40)的数据复制到（V4：V40）， （CN4：CN40）的数据复制到（CO4：CO40）。

请问这样的VBA代码应该怎么写。
谢谢。


------解决思路----------------------
开启宏录制，然后手动操作，看VBA自动生成的代码什么样的，修改修改为你所用。
------解决思路----------------------

引用:

开启宏录制，然后手动操作，看VBA自动生成的代码什么样的，修改修改为你所用。

自动生成的只有这个，有劳各位大神，能不能帮写一个具体一点的啊，
VBA小白，见谅
------解决思路----------------------
你光开启了宏录制，没有操作。

最简单的是选中复制粘贴，操作一遍代码就有了。
------解决思路----------------------
Range("U4：U40").Copy
Range("V4").Select
ActiveSheet.Paste