excel中VBA代码的问题（1）

在一个单元格中输入日期，按日期在数据源中自动搜索相关内容，自动生成新表，新表的标签名即为日期数值。

假设数据在单元格A1到F100中（不是的话改下面的粗体字），假设准备输入日期的单元格是H1（不是的话改下面的粗体字）。
右键点本工作表的名字（在工作簿左下方呢），查看代码，粘贴如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Line1
Dim xRng As Range
If Target.Range("A1").Address = "$H$1" Then
Set xRng = Range("A1:F100")
xRng.AutoFilter
xRng.AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Target.Range("A1"))
xRng.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = Target.Range("A1")
End If
Line1: End Sub
回到Excel，在H1输入任意日期，回车完成。