While waiting for my post to appear I came up with this and it works, however, you could boot up a commadore computer faster than this macro will ru
With Range("A1:E50000"
.AutoFilte
.AutoFilter 2,
.AutoFilter 4,
.AutoFilter 5,
If .Columns(1).SpecialCells(xlVisible).Count 1 The
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Delete
Shift:=xlU
End I
.AutoFilte
End With