Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel
For Each Cel In Range("K7:K20")
If Cells(Cel.Row, 11) = "o" Then
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 11)).Interior.ColorIndex = 3
Else
Range(Cells(Cel.Row, 1), Cells(Cel.Row, 11)).Interior.ColorIndex = 0
End If
Next Cel
With Application
.EnableEvents = False
.ScreenUpdating = 0
End With
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add _
Key:=Range("K5:K20"), SortOn:=xlSortOnCellColor, Order:=xlAscending
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.Apply
End With
Application.EnableEvents = True
End Sub