以下是使用VBS解决此问题的代码：

Dim startdate, enddate, currentdate
startdate = InputBox("请输入数据的开始日期") '定义变量startdate，存储数据的开始日期
enddate = InputBox("请输入数据的结束日期") '定义变量enddate，存储数据的结束日期
currentdate = Now() '定义变量currentdate，存储当前时间戳
If startDate <= currentDate And currentDate <= endDate Then '判断当前时间是否在开始和结束之间

MsgBox "不删除"    '如果在，则不删除该表格数据 

Else '否则执行下一步

MsgBox "删除"   '如果不在，则在表格中将其删除。 

End If