макрос на добавление строки при условии

[KApSuL]

Добрый день!
подскажите пож:
нужно написать макрос, чтобы добавлялась строка, при условии что:
например идут ячейки
1
1
1
2
2
3
3
нужно чтобы строка добавлялась между 1-кой и 2-кой или 2-кой и 3-кой

[DiemonStar]

 [A:A].Find(2, LookIn:=xlValues).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

вместо 2 ставите значение, перед которым нужно вставить строку и всё...

[Hugo121]

Цикл снизу вверх, как только предыдущее значение отличается от текущего - вставляете строку.

[KApSuL]

спасибо, то что нужно
по одному столбцу понятно, а как сделать чтобы строка добавлялась по всей таблице
например если
1
1
2
2
стоит в столбце С
как сделать чтобы строка добавилась и по всем остальным столбцам?

[DiemonStar]

стоит в столбце С
как сделать чтобы строка добавилась и по всем остальным столбцам?

[C:C].Find(2, LookIn:=xlValues).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[KApSuL]

спасибо большое, очень помогли

[KApSuL]

ой ещё вопрос если можно...
можно с этим рядом который добавляем сразу работать как-то?
к примеру добавляем ряд и в макросе размещаем значения по ячейкам именно этого столбца?

[DiemonStar]

  Set R = [A:A].Find(2, LookIn:=xlValues).EntireRow
  R.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  R.Offset(-1).Cells(1,5).Value = "+"

например, вот так (ставим "+" в 5 колонку новой строки)

[KApSuL]

спасибо
я вот так придумал

    [B:B].Find("", LookIn:=xlValues).Select
    ActiveCell.FormulaR1C1 = "Бригада1"

или это бред?
хотя да, у Вас лучше
вновь спасибо

[DiemonStar]

Выделение (.Select) использовать не рекомендую - если большие циклы, то будет нещадно тормозить.