Autofill

R

Raul

Have you tried using the advanced filter function? You
could use the advanced filter to return only the desired
records and then copy the results to sheet B.

The advanced filter code would be:

Range("B3:E9").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"H3:H5"), CopyToRange:=Range("J3:K3"),
Unique:=False

Hope this helps,
Raul
 
Top