Secret Squirrel

The trick is to copy it. The code below filters columnA for a value greater
than 600, copies the column (You may want to limit this to the last cell in
your data and the copies it to another sheet, Sheet2, starting in A1

Sub PasteFilteredRows()
Range("A1").AutoFilter Field:=1, Criteria1:="600"
Columns("A:A").Copy Destination:=Worksheets("Sheet2").Range("A1")
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"Secret Squirrel" wrote in
message ...
I have a worksheet that I want to be able to cut and paste into a new file.
But I only want to be able to cut and paste the filtered rows. How would I
go
about creating this macro/vba code to cut and paste only the rows that are
filtered and create a new file with just these rows?