셀 값과 날짜 범위로 선택하여 한 시트에서 다른 시트로 데이터를 이동하는 VBA 코드

프로그램 실행에 맞게 조정 한 VBA 코드를 얻는 데 문제가 있습니다. 이해하지 못하는 문제가 있으며 해결 방법을 모르겠습니다. "판매"시트의 데이터를 장인 요약 시트로 필터링하려고합니다. 다음은 적응하려고하는 현재 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 월 전의 한 달 만에 코드를 실행하려고했습니다. 그러나 그것은 작동하지 않습니다. 데이터를 가져 오는 판매 페이지의 사본도 첨부하고 있습니다. 판매 페이지는 내 네 번째 시트이고 장인 요약은 이 작업을 위해 Excel 2013을 사용 하는 다섯 번째 시트 입니다.