roma126,

Вставьте этот код в ваш лист.
Функция вставки привязана к стартовой ячейке, которую вы указываете в параметре.

Sub AddRecordsByFieldValue(StartRow As Integer, ColumnNumber As Integer)

i = StartRow
Do
If Cells(i, ColumnNumber).Value <> 0 Then
NumberOfRowToInsert = Cells(i, ColumnNumber).Value
For j = 1 To NumberOfRowToInsert
Cells(i + j, ColumnNumber).Select
Selection.Insert Shift:=xlDown
Next
i = i + j
Else
Exit Do
End If
Loop

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Call AddRecordsByFieldValue(ActiveCell.Row, ActiveCell.Column)

End Sub

На всякий случай поясню.
У вас имеется в какой-то части листа столбец с указанием количества строк для вставки в этот же столбец после указанного числа. Делаете на одной из этих ячеек двойной клик - разноска готова :) Надеюсь не надо пояснять, что двойной клик просто для примера. А так втыкаете написанную функцию себе в код - и юзайте на здоровье )))

Удачи.