Private Sub Worksheet_Change(ByVal Target As Range)
Cells(2, 1).Interior.ColorIndex = IIf(IsNumeric(Cells(2, 1)), 4, 0)
Cells(2, 2).Interior.ColorIndex = IIf(IsNumeric(Cells(2, 2)), 4, 0)
If Range("e2").Value < 10 Then
Range("c8").Value = Range("e2").Value * 10
End If
If Range("e2").Value >= 10 Then
Range("c8").Value = Range("e2").Value * 100
End If
End Sub