Макрос вставки определённого количества строк

[МихаилБорисович]

Нужна помощь

[МихаилБорисович]

Нужен макрос, который после белых строк добавлял пустые жёлтые, так чтобы после каждой белой строки было бы по 5 жёлтых с учётом тех что уже есть

[27102014]

Михаил Борисович, критерий цвет (желтый и белый) очень капризный признак ячейки, придумайте что-то другое, лучше конкретные слова
В столбце В у белых строк всегда пусто?

[МихаилБорисович]

Да, в столбце В всегда пусто.

[IgorGO]

выполните этот

Sub Make5YellowRows()
  Dim r As Long, rc As Long
  r = Cells(Rows.Count, 2).End(xlUp).Row
  Do While r > 1
    If IsEmpty(Cells(r - 1, 2)) Then rc = 0 Else rc = r - Cells(r, 2).End(xlUp).Row
    If rc < 4 Then
      Rows(r + 1).Resize(4 - rc).Insert shift:=xlShiftDown
      r = r - rc - 2
    Else
      r = r - 6
    End If
  Loop
End Sub