Código VBA para selecionar por um valor de célula e intervalo de datas para mover dados de uma folha para outra

Question

Estou com problemas para obter um código do VBA que adaptei ao meu programa. Existem coisas que eu não entendo e não sei como consertar. Eu estou tentando filtrar dados de uma folha de "Vendas" para uma folha de resumo do Artisan. Aqui está o código VBA atual que estou tentando adaptar, mas continuo recebendo erro Código:

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

Não tenho certeza do que estou fazendo de errado. Foto da página de resumo Euestoutentandoinseriradata,quantidade,códigoepreçounitáriodafolhadevendas.EstouselecionandopelocódigodeartesãoemD2edepoisas2datasemE5eH5.Eutenteiexecutarocódigocomapenasomês,exfevereiro.Masissotambémnãofunciona.Tambémestouanexandoumacópiadapáginadevendasdaqualestoupuxandodados.apáginaVendaséminhaquartafolhaeoResumoArtesanaléaquintafolha Estou usando o excel 2013 para fazer isso.