Знаешь, этот макрос в готовом виде нигде не лежит. Его можно написать самому.
Можно написать что-то вроде этого: берёшь первую строку, числовое значение из неё. Потом пробегаешь по всем строкам ниже, сверяешь значения из них со значением из первой строки.
Если значения противоположные, то удаляешь строки со сдвигом вверх:
Rows(i).Select
Selection.Delete Shift:=xlUp
Затем берёшь вторую строку, числовое значение из неё. Повторяешь те же самые операции со сравнением. И так повторяешь, пока не проверишь все строки.
В итоге твоя таблица примет желаемый вид.
P.S. Если ты надеялся получить готовый исходник, то ты прогадал с местом. Это форум, где люди делятся опытом, подсказывают друг другу как справиться с той или иной заковыркой. А на просьбы типа "Напишите плз программу, горю, очень надо..." мало кто откликается, потому что за_просто_так никто работать не хочет.