I have code in a module that runs an advanced filter on a range of cells. One of
these columns has data validation linked to a list (named range). The data is
filtered no problem, but the cell with the data validation is cleared and only
the value is copied over. Is there an option that can be added to the advanced
filter code to allow the validation to transfer to the filtercopy range? Here is
the simple code I'm using.

Range("F1:F49").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I3:I4"), CopyToRange:=Range("J4"), Unique:=True