Thanks Jim. That works great!!

"Jim Thomlinson" wrote:

range(Range("B1"), cells(rows.count,
columns.count)).specialcells(xlCellTypeVisible).en tirerow.delete
--
HTH...

Jim Thomlinson


"Scott" wrote:

I have a large data file that changes daily. I have a header row and am using
a filter to copy certain data including the header row to a new worksheet. I
want to then go back and delete all the data that was displayed by the filter
except for the Header row. Does anyone know the code that can do this??