[COLOR=#333333]Private Sub CommandButton21_Click()[/COLOR] 
[COLOR=#333333]With Worksheets("Report").Activate[/COLOR] 
[COLOR=#333333]With Range("A1" & Range("AS" & Rows.Count).End(xlUp))[/COLOR] 
[COLOR=#FF0000][B].AutoFilter Field:=45, Criteria1:="2 - WAY"[/B][/COLOR] 
[COLOR=#333333]On Error Resume Next[/COLOR] 
[COLOR=#333333].Offset(1).SpecialCells(12).EntireRow.Delete[/COLOR] 
[COLOR=#333333]End With[/COLOR] 
[COLOR=#333333].AutoFilterMode = False[/COLOR] 
[COLOR=#333333]End With[/COLOR] 
[COLOR=#333333]End Sub[/COLOR] 

Formatting tags added by mark007