Sub Macro1()
If Cells(6, 44).Value = 'FIN' Then
If Cells(6, 24).Value <= 1 Then
Cells(6, 24).Interior.ColorIndex = 4
Else
Cells(6, 24).Interior.ColorIndex = 3
End If
Else
If Cells(6, 24).Value > Cells(6, 57).Value Then
Cells(6, 24).Interior.ColorIndex = 4
Else
If Cells(6, 24).Value < Cells(?, ?) And Cells(6, 24) > Cells(6, 57) Then
Cells(6, 24).Interior.ColorIndex = 46
Else
If Cells(6, 24).Value > Cells(6, 57) Then
Cells(6, 24).Interior.ColorIndex = 4
End If
End If
End If
End If
End Sub