Autofilter - Criteria not Found

[BatFace]

Thanks again for your help!

I am using the following code to copy data according to autofilter criteria - this works fine, until there is no data marked as &quot;sold&quot; - it then copies the whole sheet...what code would I use to exit sub if criteria is <> &quot;Sold&quot;?

Columns(&quot;b:q&quot.Select
Selection.AUTOFILTER
Selection.AUTOFILTER Field:=16, Criteria1:=&quot;Sold&quot;
Range(Cells(2, 4), Cells(lastRow,_
16)).Interior.ColorIndex = xlNone
Range(Cells(2, 4), Cells(lastRow, 16)).Copy

Thanks again for your help!