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??

range(Range("B1"), cells(rows.count,
columns.count)).specialcells(xlCellTypeVisible).entirerow.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??

Thanks Jim. That works great!!

"Jim Thomlinson" wrote:

> range(Range("B1"), cells(rows.count,
> columns.count)).specialcells(xlCellTypeVisible).entirerow.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??