Помогите c макросом в excel - VB

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

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

Решение задачи: «Помогите c макросом в excel»

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

                            <font color="blue">Sub</font> Compare_A_B()
Application.ScreenUpdating = False
<font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>
<font color="blue">Dim</font> stroka1 <font color="blue">As</font> <font color="blue">Integer</font>: stroka1 = <font color="darkblue"><b>2</b></font>     <font color="00AA00">' номер первой строки</font>
<font color="blue">Dim</font> stroka9 <font color="blue">As</font> <font color="blue">Integer</font>: stroka9 = <font color="darkblue"><b>100</b></font>   <font color="00AA00">' номер последней строки</font>

<font color="blue">For</font> i = stroka1 <font color="blue">To</font> stroka9
    a0 = Range(<font color="teal">"A"</font> & LTrim(Str(i))).Value      <font color="00AA00">' получим значение текущей строки, колонки <font color="teal">"A"</font></font>
    b0 = Range(<font color="teal">"B"</font> & LTrim(Str(i))).Value      <font color="00AA00">' получим значение текущей строки, колонки <font color="teal">"B"</font></font>
    <font color="blue">If</font> a0 <> b0 <font color="blue">Then</font>
       r = r + <font color="darkblue"><b>1</b></font>
       Range(<font color="teal">"D"</font> & LTrim(Str(i))).Value = <font color="teal">"ЗДЕСЬ НЕ РАВНО"</font>
       <font color="00AA00">' или можно удалить текущую запись</font>
       Rows(LTrim(Str(i)) & <font color="teal">":"</font> & LTrim(Str(i))).<font color="blue">Select</font>
       Selection.Delete Shift:=xlUp
       stroka9 = stroka9 - <font color="darkblue"><b>1</b></font>
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>
Application.ScreenUpdating = True
<font color="blue">Exit</font> <font color="blue">Sub</font>
Err0:
    Application.ScreenUpdating = True
    MsgBox Err.Description & vbCrLf & <font color="teal">"на строке   "</font> & Str(i)
<font color="blue">End</font> <font color="blue">Sub</font>
                        