Never mind ...sorry ! I found the answer searching for similar posts ...
should've searched more b4 posting ... sorry & thanks !!

Sub splenda()
'Capture row of last entry in column B
ctrlValueRow = Cells(Rows.Count, "A").End(xlUp).Row
'Loop upward thru cells in ColB; insert as needed
Do While ctrlValueRow > 0
 Cells(ctrlValueRow, 2).Activate
 If ActiveCell.Value > 0 Then
   For i = 1 To ActiveCell.Value
     ActiveCell.Offset(1, 0).EntireRow.Insert
   Next i
 End If
 ctrlValueRow = ctrlValueRow - 1
Loop
End Sub

Cheers,
Mayte

This macro will insert a variable number of rows:
Sub InsertAnyRows()

Dim insertNumber As Range
Dim insertStart As Range
Dim redRng As Range
Dim i As Integer

Set insertNumber = Application.InputBox _
(Prompt:="Select a point to begin inserting rows. For instance, choose first
non blank cell in Column A", Title:="Add a row", Type:=8)
insertNumber.Select
   If insertNumber <= 0 Then
       MsgBox ("Invalid Number Entered")
       Exit Sub
   End If
Dim myRow As Long

lastcell = Cells(Rows.Count, "A").End(xlUp).Row
myRow = 1
Do Until myRow = lastcell
For i = 1 To Cells(myRow, 1)

If Cells(myRow, 1) <> "" Then
Cells(myRow + 1, 1).Select
Selection.EntireRow.Insert shift:=xlDown
End If

Next
lastcell = Cells(Rows.Count, "A").End(xlUp).Row
myRow = myRow + 1
Loop

End Sub

Regards,
Ryan---

PS, I didn't create this.  Some brilliant person shared it with me a little
over a year ago, and now a not-so-brilliant person is sharing it with you now.