Изменение значения фиксированной ячейки в зависимости от активной ячейки - VBA

Формулировка задачи:

Добрый день. Помогите пожалуйста написать макрос так, чтобы при изменении активной ячейки, фиксированная ячейка изменяла свое значение в зависимости от значений заголовков расположенных в определенных диапазонах. Так, например, если активная ячейка D3, то то при применении макроса значение желтой ячейки должно быть 6, а значение зеленой 1, или если F5 - то желтая 15 а зеленая 5, и так далее.

Решение задачи: «Изменение значения фиксированной ячейки в зависимости от активной ячейки»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Intersect(Target, [C2:F6]) Is Nothing Then Exit Sub
    [C9] = Cells(2, Target.Column)
    [C10] = Cells(Target.Row, 2)
End Sub
                        