VBA 代码通过单元格值和日期范围进行选择，将数据从一张表移动到另一张表

Question

我无法让已改编为我的程序运行的 VBA 代码运行。其中有些东西我不明白，也不知道如何修复。我正尝试将数据从“销售”工作表过滤到 Artisan 摘要工作表。这是我尝试改编的当前 VBA 代码，但我一直收到错误代码：

Sub Filter_Statement()

    On Error GoTo Filter_Statement_Error
    Dim ws As Worksheet
    Set ws = Sheet5

    Application.ScreenUpdating = False
    If ws.Range("D2").Value = "" Or ws.Range("E5").Value = "" Or ws.Range("H5").Value = "" Then
        MsgBox "Please fill in all of the needed information. Customer / Start Date / End Date"
    Exit Sub
    End If
    ws.Select
    ws.Range("ArtisanSummary").RemoveSubtotal
    Set area2 = Sheet4.Range("C2:K100000")

    area2.AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=ws.Range("R4:T5"), CopyToRange:=ws.Range("B10:E10"), _
        Unique:=False
    If ws.Range("B11").Value = "" Then
        MsgBox "No available data"
        Exit Sub
    End If
    Application.ScreenUpdating = True
    Groupit

    On Error GoTo 0
    Exit Sub

    Filter_Statement_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Filter_Statement of Module Filters"
End Sub

我不知道我做错了什么。摘要页面的照片 我正在尝试从销售表中输入日期、数量、代码和单价。我选择 D2 中的工匠代码，然后选择 E5 和 H5 中的 2 个日期。我尝试只使用月份（例如二月）运行代码。但这也不起作用。我还附上了我从中提取数据的销售页面的副本。销售页面是我的第 4 张表，工匠摘要是第 5 张表 我正在使用 excel 2013 来执行此操作。