Conditional Formatting is not working

I attached a spreadsheet that I'm playing with conditional formatting. It all work fine like I want it except that the conditional formatting does not apply when the cells are copied through the Test macro.If I enter a specific values by hand e.g. D15 = 95 and D16 = 1 then it formats it like I wanted it. But if I press the Macro button then the formatting does not work.

Would you be able to have a quick look for me? What's the trick?
Please help me.

This is not the best way, but try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
For Each r In Target.Cells
    With r
'... your code here
    End With
Next
End Sub