Change the colors of cells

Hi, I have a column in my excel sheet. And i have some numbers registered in it.Numbers are float like  : 100,59.05,.....

I want a code in VBA which does thisfor me....: if numbers are like this 100,50,20,...(Decreaseing) the cells' color sould be green,else if the numbers' value is increasing the cells' color should be red.

would you help me with some lines of code to slve this problem.

Any help is appreciated.