Написание макроса в экселе

[lamerkz]

Здравствуйте.
Оч нужна помощь в написании макроса.
В общем есть таблица с данными в Excel'e, нужен макрос, который будет сверять числа из двух колонок этой таблицы. числа приблизительно в таком порядке:
1 1
2 2
3 4
4 5
5 7
6
7
так вот, если числа в 1 строке совпадают, он должен выводить сообщение "ок", если нет он должен проверить весь столбец и если эта цифра находится ниже, то он должен опустить ее, т.е вставить ячейки, вот так:
1 1
2 2
3
4 4
5 5
6
7 7
Если кто нибудь сможет помочь буду очень благодарен.
заранее спс.

[alex77755]

А что делать если такого числа ниже нет?

Sub POR()
Dim I, J
I = 1
Do While Cells(I, 2) <> Empty
 If Cells(I, 1).Value = Cells(I, 2).Value Then MsgBox "Ок", vbOKOnly, Cells(I, 2).Value: GoTo 1
 J = I
    Do While Cells(I, 2) <> Cells(J, 1)
        J = J + 1
        If J = 50 Then MsgBox "В ближайших 50 строках числа " & Cells(I, 2).Value & " нет": GoTo 1
    Loop
    Range("B" & I & ":B" & J - 1).Select
    Selection.Insert Shift:=xlDown
I = J
1
I = I + 1
Loop
End Sub

[lamerkz]

Спасибо большое alex77755.
Если такого числа нет, напротив него должен быть пробел.
А вот если в обоих столбцах нет какой то цифры, к примеру "1", то не знаю даже, это надо уточнить. завтра посмотрю в условии, есть там вообще такое или нет.