Code for Deleting all but first row
 

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

Code for Deleting all but first row
 

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

Code for Deleting all but first row
 

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