Code for Deleting all but first row

[Scott]

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

 

[Jim Thomlinson]

range(Range("B1"), cells(rows.count,
columns.count)).specialcells(xlCellTypeVisible).entirerow.delete

 

[Scott]

Thanks Jim. That works great!!

range(Range("B1"), cells(rows.count,
columns.count)).specialcells(xlCellTypeVisible).entirerow.delete