Replace the code you have in your Worksheet Code Module with this.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'FILTER
Dim LastRow         As Long
Dim i               As Long
If Target.Count > 1 Then Exit Sub
    If Target.Address = "$E$5" Or _
       Target.Address = "$F$5" Or _
       Target.Address = "$G$5" Then
        Range("base").AdvancedFilter _
                Action:=xlFilterInPlace, _
                CriteriaRange:=Range("criterio"), Unique:=False
        LastRow = Range("K65536").End(xlUp).Row
        For i = 9 To LastRow
            If Range("J" & i).Value > Range("K" & i).Value Then
                Range("K" & i).Font.ColorIndex = 3
            Else
                Range("K" & i).Font.ColorIndex = 0
            End If
        Next i
    End If
'FONT COLOR RED COLUMN K
    If Target.Column = 11 Then
        If Target.Offset(0, -1).Value > Target.Value Then
            Target.Font.ColorIndex = 3
        Else: Target.Font.ColorIndex = xlAutomatic
        End If
    End If
End Sub