主题：excel表格设计

有一个excel表格包含所有数据，我希望按指定的条件把这些数据分开并保存到一个工作簿中，该怎么设计代码，我的想法是这总表中的数据复制到新增的工作表中，然后把不符合条件的数据，但是没有复制工作表的方法，该怎么办？

我想把设计好的excel模板作成excel打不开的模板，但是可以用foxtable的程序打开，防止别人修改模板，能否实现

以下是复制工作表的代码，怎么能够复制工作表同时指定工作表名称？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("同期对比") '指定要复制的工作表
With Wb.WorkSheets
    Ws.Copy(After:=.Item(.Count))'复制到最后面
    Ws.Copy(Before:=.Item(1))'复制到最前面
    Ws.Copy  '复制到一个新工作簿
End With
Wb.Save
App.Quit