I would like to split or copy record n-times based on n-value on of a row.
How do you contruct the loop?

Perhaps a simple typo issue, but I cannot figure out -- from the precise
wording -- what you require, please be a little clearer.

I would love to help if I can.

Bill Benson


"Loops" wrote in message
...
I would like to split or copy record n-times based on n-value on of a row.
How do you contruct the loop?

Sub AAA()
Dim i As Long, Num As Long
i = 1
Do While Cells(i, 1) < ""
Num = Cells(i, 1)
Cells(i, 1).Offset(1, 0).Resize(Num).EntireRow.Insert
Set rng = Cells(i, 1).Offset(1, 0).Resize(Num)
Cells(i, 1).EntireRow.Copy Destination:=rng
i = i + Num + 1
Loop
End Sub

--
Regards,
Tom Ogilvy

"Loops" wrote in message
...
I would like to split or copy record n-times based on n-value on of a row.
How do you contruct the loop?