Advanced filter automatically

[xyz88]

Hi,
I'm trying to set up an advanced filter that updates automatically and here's my code:

Sub advancedfilter()


Sheets("Sheet1").Range("A9:N151").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet1").Range("K1:K2"), _
CopyToRange:=Sheets("Sheet2").Range("A8:N8") _
, Unique:=False


End Sub



I keep on getting the error 1004 - method of range fail. If i could please get some help on what the issue may be that would be much appreciated!

Thank you!

 

[Fluff]

Hi & welcome to MrExcel.
You're code works for me.
Are either of the sheets protected?
Also do you have any merged cells?

 

[xyz88]

Thanks for getting back to me! the sheets are not protected and i don't have any merged cells.
Would there be any other reasons why this doesn't work?

 

[Fluff]

In that case I can't think of any other reason why you'd get a 1004 error