Advanced Filter Auto refresh

[smartpat19]

I am trying to automatically update this advanced filter when the criteria is changed ("A2:I2"), my code is below. I'm trying to keep the source data in a table since this will always be updated with new data, but if there's another solution, let me know. Thanks.

Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Filtered Data").ListObjects("Table2").Range.AdvancedFilter xlFilterCopy, Sheets("Anchored Retail").Range("A2:I2"), Range("A5:I5")
End Sub

Windows 7, Excel 2013.

 

[smartpat19]

WOW! i just figured it out! my criteria range was off! should be ("A2:I3")

However, is there a way to put the advanced filter output into a table? or could I add some VBA to this "worksheet change Sub" to change a range reference?