Sub Color()
FinTab = Range("F" & 65535).End(xlUp).Row
For i = 6 To FinTab
If Range("F" & i).Value < Range("D2").Value And Range("K" & i).Value = "Prdt1" Then
Range("A" & i & ":" & "K" & i).Interior.Color = 65535
ElseIf Range("F" & i).Value > Range("D2").Value And Range("K" & i).Value = "Prdt2" Then
Range("A" & i & ":" & "K" & i).Interior.Color = 49407
End If
Next
End Sub