Sub KeepOnly_CSTA()
Dim Plg As Range, pf As Range
Set Plg = Cells(1).Resize(Cells(Rows.Count, "J").End(3).Row, 13)
Plg.AutoFilter 10, "<>CSTA", xlAnd: Set pf = Range("_FilterDataBase")
Application.ScreenUpdating = False
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).EntireRow.Delete: Plg.AutoFilter
End Sub