I am using 

Sub GetChartData()
'DataTable is the "dirty" data containing all of the #REF! errors
Dim DataTable As Range

Application.ScreenUpdating = False
    With Sheets("Summary")
        Set DataTable = .Range("J1:K59")
    End With
    'Criteria says get anything that does not have the "#REF!" as a value and return it to the Extract range
    DataTable.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), CopyToRange:=Range("Extract")
    Application.ScreenUpdating = True
    
End Sub
as an assigned macro to a active button I created to go along with a chart. However, every time select a different item from the drop-down I get an error stating, "the extract range has a missing or illegal field name."

I used the file manager to name the range. How do I resolve this error?