Prevent first row to be deleted

[RonEmm]

Hi,

This is part of my code:

        .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).AutoFilter Field:=1, _
            Criteria1:="xxxx"
        .Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete

This code will also delete the first row (header) in my sheet. Is there a way to exclude the first row and prevent it form being deleted?

 

[Rick Rothstein]

Hi,

This is part of my code:

        .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).AutoFilter Field:=1, _
            Criteria1:="xxxx"
        .Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete

This code will also delete the first row (header) in my sheet. Is there a way to exclude the first row and prevent it form being deleted?

Maybe this in place of what you posted...

With .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
  .AutoFilter Field:=1, Criteria1:="xxxx"
   .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

 

[RonEmm]

Thanks Rick. This did the job.