This will filter the status and delete the rows.
Dim v As Variant
Application.ScreenUpdating = False
With ActiveSheet
If .FilterMode Then .ShowAllData
.Columns("A:AZ").Hidden = False
.Columns("A:AZ").AutoFilter Field:=2, Criteria1:=Array("*Pass*", "*P_TC*", "*PTC*"), Operator:=xlFilterValues
v = .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Value
.AutoFilterMode = False
.UsedRange.ClearContents
.Range("A1").Resize(UBound(v, 1), UBound(v, 2)).Value = v
.Columns("C:H").Hidden = True
End With
Application.ScreenUpdating = True
I'm not sure where you want to put the part number averages. It would be easy to create a Pivot Table of averages somewhere.
Bookmarks