esta errando ciertos

Hola a todos. Necesito una mano, tengo una macro para dar formatos condicionales a una serie de celdas. Copio parte de la macro: Case ">" For c = 1 To 16 With Cells(Fila, 14 + c) With .FormatConditions .Delete .Add Type:=xlCellValue, ...