помогите с процедурой на VBA

[Exo]

Всем доброго времени суток!
Народ выручайте (не долго осталось, сегодня было 2-ое занятие по VBA, надеюсь в скором будущем от Вас отстать)

Задача на примере:

1. соединить данные в столбцах В и С, приоритет у столбца В, т.е. данные из столбца С при переносе в соответствующую ячейку столбца В затираются (остается значение столбца В). Например в ячейке В4 нет нечего, в ячейке С4 нет нечего в итоге в ячейке В4 нет нечего. В ячейке В4 нет нечего, в ячейке С4 стоит 2, в итоге В4=2. В ячейке В4 2, в ячейке С4 4, в итоге в ячейке В4 2. После переноса данных, колонка С4 - delete.

2. перенесли, у нас две колонки, нужно анализировать ячейки в колонке B
по следующему условию,
если ВСЕ строчки до следующего «заказа покупателя» пустые, то в ячейку левее ячейки «заказа покупателя» (на примере файла – ячейка В3) ставим цифру 0.
Если в этих строчках стоит какая-то цифра (по определению это может быть цифра от 1 до 7, пусть да же несколько раз, это не важно) то в ячейку В8 (см. файл) просто переносится эта цифра (для файла примера это 2).
И третье условие, если в троках до следующего заказа покупателя стоят разные цифры (1,2,3 и т.д.), то в ячейку В15 (опять на примере файла) ставиться цифра 9.

После этой обработки все строки, кроме строк - ячейка «заказ покупателя» + 1 ячейка (с тем кодом который поставила предыдущая обработка) – уладятся.

Т.е. на выходе:
А столбец
Заказ покупателя М0000662 от 26.02.2008 8:58:51
Заказ покупателя М0001120 от 31.03.2008 8:48:31
Заказ покупателя М0000726 от 28.02.2008 13:49:26
В столбец
0
2
9


НАРОД, помогите процедурой на VBA.

Очень рассчитываю на Вас!


З.Ы. фиолетовые ячейки колонки В – как должно получиться после процедуры.

[SAS888]

Не совсем понял, что в конце нужно удалять. На всякий случай, я пока не удаляю, а скрываю те строки, про которые думаю. Если так - в коде макроса замените

Rows(i).Hidden = True

на

Rows(i).Delete

[Exo]

блин ЧТД!!! SAS888 как всегда РЕСПЕКТ!

как же я хочу научиться сам это делать. Сегодня же эту процедуру разберу с преподавателем - по полочкам.

З.Ы. кстати, select case мы уже вчера коснулись в рамках If