Using an Advanced filter:

Sub AdvFilter()
With Worksheets("Sheet1")
.Range("A1").CurrentRegion.AvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("G1:G2"), _
CopyToRange:=Worksheets("Sheet2").Range("A1"), _
Unique:=False
End With
End Sub


You can do it manually by starting from the destination sheet (not the sheet
with the source data). Excel might complain that it can't find your data,
but just ignore that message and continue to select source data and so
forth.

--
Regards,
Tom Ogilvy

"Rob" wrote in message
...
I would be able to use the advanced filter, but I keep getting an error
message that says I can only copy data to an active sheet. Is there a way
to
have several sheets active at the same time, b/c that would pretty much
solve
my problem?

Rob

"Simon Shaw" wrote:

Are you familiar with using Filter, in particular Advanced Filter?

"Rob" wrote:

My question is if I have one worksheet with all of my information, and
I want
to extract certain data based on criteria, and cut and paste only that
data
into another worksheet, is this possible? If so how would I do it?