基于日期列移动Excel数据

我试图根据第一张电子表格中的一个日期列，将数据从excel中的5列电子表格移动到其他子电子表格。如果子电子表格不存在，将创建子电子表格，否则将使用主电子表格中的数据填充子电子表格。电子表格名称将是一周开始的日期（周一）。我的列是：工单、说明、位置、资产、日期

例如：

工单-说明-位置-资产-日期

123------测试和检查-NC-231-KK32-8/21/14

在本例中，日期行为8/21/14的主电子表格将创建一个名称为8/18/14的子阅读表，因为该行位于8/18/14的一周，并插入其他列。如何在excel工作簿中执行此操作？

Dim firstDate作为日期，secondDate作为日期
Dim firstDate As Date, secondDate As Date
Dim I as Date 

firstDate = Inputbox("What start date?") ' request your input for what date Monday is 
secondDate = DateAdd("d", 6, firstDate)

For Each Cell in Range("E2"),Range("E2").End(xldown)
   ActiveCell = Cell
     If cell => firstdate  and  =< secondate  then  ' test if falls under days of week     
            ActiveCell.Row.Copy    
            On error resume next      
            Worksheets.Add.Name = Firstdate
            Sheets(" & Firstdate &").Select 
            Range("A1").End(lxDown).Offset(1,0).pastespecial
 Next Cell  
End Sub 

日期为
firstDate=Inputbox（“什么开始日期？”）“请输入星期一的日期
secondDate=DateAdd（“d”，6，firstDate）
对于范围（“E2”）中的每个单元格，范围（“E2”）。结束（xldown）
活动单元格=单元格
如果单元格=>firstdate和=

---

未测试，但应该是一个开始

您能否将您目前编写的代码添加到您的问题中，并让我们知道您遇到了哪些问题？