Maybe:
Sub wyanrandy()
Dim rcell As Range
Dim lr As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("E2:E" & lr).AutoFilter Field:=1, Criteria1:="=O", Operator:=xlOr, Criteria2:="=T"
Range("B2:B" & lr).SpecialCells(xlCellTypeVisible).Copy
Range("L1").PasteSpecial Transpose:=True
ActiveSheet.AutoFilterMode = False
lr = Cells(Rows.Count, 2).End(xlUp).Row
Range("L1").Select
Do Until ActiveCell.Value = ""
For Each rcell In Range("B2:B" & lr)
If rcell.Value = ActiveCell.Value Then
rcell.EntireRow.Delete shift:=xlUp
End If
Next rcell
Range("L1").Delete shift:=xlToLeft
Range("L1").Select
Loop
Application.ScreenUpdating = True
End Sub
Bookmarks