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


-----Original Message-----
Hi,

I have a table in sheet A with fields
like "plan","user","date","amt". Now I need copy this
table to sheet B with only 2 fields, they'
re "user","date". Plus I want to only copy the records
with user name "Smith" and "Ami". Can anyone tell me how
should I program this in my VB code ? Appreciate any
help.
Thanks

Meme
.