VBA: Autofilter xlOr Operator >than 2 Criteria

[NeoSez]

I have this VBA code that works for two criteria, but not three.

1. How do I get it to auto-filter for three or more filters?
2. How do I change the range to last row, instead of adding the I8000? I tried to change to"$A$4:$I & lastRow" but didn't work for me.

.Range("$A$4:$I$8000").AutoFilter Field:=3, Criteria1:="=apples", Operator:=xlOr, Criteria2:="=oranges", Operator:=xlOr, Criteria3:="=kiwi"

 

[Fluff]

How about

.Range("$A$4:$I$8000").AutoFilter 3, Array("apples", "oranges", "kiwi"), xlFilterValues

 

[NeoSez]

How about

.Range("$A$4:$I$8000").AutoFilter 3, Array("apples", "oranges", "kiwi"), xlFilterValues

Fluff That worked! Thank you! Now only if I can get the &lastrow to work then my day is done.​

 

[Fluff]

Please do not post everything in big bold text, just use the normal font.

Can you post the code that is setting the lastrow.

 

[NeoSez]

Sorry Fluff. No idea how it all came out bolded. I didn't mean to have it bolded.
Below is the first part that I was trying to change to last row. but it won't work for me.

.Range("$A$4:$I & lastRow")

 

[Fluff]

It should be like

.Range("$A$4:$I" & lastRow)

 

[NeoSez]

It should be like

.Range("$A$4:$I" & lastRow)

I tried that and it threw me an error code - Compile error: Argument not optional.
I don't know what that means.

.Range("$A$4:$I & lastRow").AutoFilter 3, Array("apples", "oranges", "kiwi"), xlFilterValues

 

[Fluff]

You still have the quotes in the wrong place for the range.

 

[NeoSez]

Fluff, thank you so much for all your help. I'm all good now.

 

[Fluff]

Glad to help & thanks for the feedback.