After filtering and hiding some columns, my macro uses the following code to
paste the data to another workbook. Rename your column identifiers and
workbook name to suit.

' Find end of data, start for lists
Range("B65536").End(xlUp).Select
LastRow = ActiveCell.Row

' Select range and copy
Range("A1:U" & LastRow).Select
Selection.Copy

' Open Calc_Stats workbook
Set wb2 = Workbooks.Open(strFPath & "Calc_Stats.xls")

' Paste in data
wb2.Activate
Sheets("Sheet1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

HTH
Ed

"pauluk " wrote in message
...
Hi all,

Does anyone know how to only copy a range whit an autofilter has
filted:

i.e. the macro has filtered field 10 for blanks, all that is required
to be copied is the filtered rows to a sheet named "extract"

Thanks in advance
Paul


---
Message posted from http://www.ExcelForum.com/