Macro to delete paid items in Col P from row2 onward

[howard]

I have headers in row1 on sheet6

want to delete all rows from row2 onwards where 'Paid' appears in Col P

I have written code to do this, but the headers in row1 are also deleted


It would be appreciated if someone could kindly amend my code so that row1 in not deleted

 Sub DeletePaidItems()

With Sheets(6).Cells(2).CurrentRegion.Columns(16)

.AutoFilter 1, "Paid"

.EntireRow.Delete

End With

End Sub

 

[VBE313]

Sub DeletePaidItems()
Dim cl As Object, lastRow As Long
Application.ScreenUpdating = False
With Sheets(6)
    lastRow = .Cells(.Rows.Count, 16).End(xlUp).Row
    For Each cl In .Range("P2:P" & lastRow)
        If cl.Value = "Paid" Then cl.EntireRow.Delete
    Next cl
End With
Application.ScreenUpdating = True
End Sub

 

[Fluff]

How about

Sub howard()
   With Sheets(6)
      .Range("A1:P1").AutoFilter 16, "Paid"
      .AutoFilter.Range.Offset(1).EntireRow.Delete
      .AutoFilterMode = False
   End With
End Sub

 

[howard]

Thanks for the help guys-code works perfectly

 

[Fluff]

Glad we could help & thanks for the feedback.