Try this. NOTE - There is probably a better formula for this so maybe someone will chime in with a more effecient solution. The problem with this formula is that if you have any spaces after the word label or cover then it will return false b/c it will count that space as a value. FYI
Dim rFilter As Range, rFormula As Range, LastRow As Long
Application.ScreenUpdating = False
.Range("F1").Value = "Helper"
LastRow = .Range("A65536").End(xlUp).Row
Set rFormula = .Range("F2:F" & LastRow)
Set rFilter = .Range("A1:F1")
rFormula = "=OR(RIGHT(E3,5)=""label"",RIGHT(E3,5)=""cover"")"
On Error Resume Next 'In case there are no cells to set to pending
.AutoFilter field:=6, Criteria1:="True"
.Offset(1, 1).Resize(.CurrentRegion.Rows.Count - 3, 1).SpecialCells(xlCellTypeVisible). _
On Error GoTo 0
Application.ScreenUpdating = True