WorksheetChange Event - VB

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

Помогите, пожалуйста!
Впервые пытаюсь создать макрос и немного не получается.
Очень буду благодарен за помощь.
Цель макроса - автоматически выделять и окрашивать строку таблицы в определенный цвет по значению активной ячейки строки (она крайняя правая).
То, что получилось работает несколько кривовато.

Workbook_SheetChange( Sh  ,  Target1  Range)
Worksheets().Activate

 ActiveCell.Value =  
 Target1 = Range(Cells(ActiveCell.Row, ), Cells(ActiveCell.Row, ActiveCell.Column))
Target1.Interior.Color = RGB(, , )
Target1.Borders.Color = RGB(, , )

 ActiveCell.Value =  
 Target1 = Range(Cells(ActiveCell.Row, ), Cells(ActiveCell.Row, ActiveCell.Column))
Target1.Interior.Color = RGB(, , )
Target1.Borders.Color = RGB(, , )

 ActiveCell.Value =  
 Target1 = Range(Cells(ActiveCell.Row, ), Cells(ActiveCell.Row, ActiveCell.Column))
Target1.Interior.Color = RGB(, , )
Target1.Borders.Color = RGB(, , )

 Target1 = Range(Cells(ActiveCell.Row, ), Cells(ActiveCell.Row, ActiveCell.Column))
Target1.Interior.Color = RGB(, , )
Target1.Borders.Color = RGB(, , )

MsgBox  & Target1.Address

 

Решение задачи: «WorksheetChange Event»

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

                            <font color="blue">If</font> ActiveCell.Value = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    Target1.Interior.Color = RGB(<font color="darkblue"><b>226</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>)
<font color="blue">Else</font>
    <font color="blue">If</font> ActiveCell.Value = <font color="darkblue"><b>2</b></font> <font color="blue">Then</font>
        Target1.Interior.Color = RGB(<font color="darkblue"><b>27</b></font>, <font color="darkblue"><b>169</b></font>, <font color="darkblue"><b>82</b></font>)
    <font color="blue">Else</font>
        <font color="blue">If</font> ActiveCell.Value = <font color="darkblue"><b>3</b></font> <font color="blue">Then</font>
            Target1.Interior.Color = RGB(<font color="darkblue"><b>255</b></font>, <font color="darkblue"><b>192</b></font>, <font color="darkblue"><b>0</b></font>)
        <font color="blue">Else</font>
            Target1.Interior.Color = RGB(<font color="darkblue"><b>255</b></font>, <font color="darkblue"><b>255</b></font>, <font color="darkblue"><b>255</b></font>)
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">If</font>
                        