将选定单元格的特定数据导出为CSV文件

我一直在寻找解决办法,但似乎我找不到它。
所以基本上,我想select例如H2,然后运行macros。
然后它应该复制/粘贴一些特定的单元格到一个新的CSV文件,例如O2和F2。 我也想要一个永远在那里的固定值,叫做“不”。

CSV文件的第一行应该是“UTF-8”。 下一个(CSV中的第二行)应该是一些固定的标题,就像UTF-8一样。

解决方法是将所有相关的数据复制到另一个正确的格式,然后将该表单导出为CSV格式?

插图:

"UTF-8" "Name","ID","Email","Customer" "H2","O2","F2","No" 

解决scheme最终将正确的数据导出到另一个表中,使用下面的正确设置。

 Sheets("Sheet1").Range("XX:XX").Copy Destination:=Sheets("Sheet2").Range("XX")