http://cjoint.com/?fDvhRg4sDJ

-Select A2:D16
-Format/Conditiannal formatting
=Row()=Cell("row")
=Column()=Cell("Column")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Cordially JB