Добавление строку

[Aqil_f]

Спасибо, Вы очень помогли мне.

[Казанский]

До кучи. Макрос делает как в примере - добавляет не n строк, а n-1

Sub bb()
Dim r&, n&
  For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    n = Val(Right(Cells(r, 1), 3))
    If n > 1 Then
      Cells(r, 1).Copy
      Cells(r + 1, 1).Resize(n - 1).Insert Shift:=xlDown
    End If
  Next
  Application.CutCopyMode = False
End Sub