Send your workbook to the address below, along with all you have done so I
can take a look.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"maju" wrote in message
...
Don, i keep getting error msg at
Rows(i).Resize(mv).Insert
Why?

"Don Guillett" wrote:

Try

Sub insertandcopy()
mc = "c"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 2 Step -1
mv = Cells(i, mc)
If mv 1 Then
Rows(i).Copy
Rows(i).Resize(mv).Insert
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"maju" wrote in message
...
Hi Guys. I am new to macro programming. Below is my data. I need to
write
a
loop that will insert new row with same data whenever the quantity is
2, 3
etc. e.g if the quantity is 1,no new row. if is it 2, 2 additional row
with
same datas info, if 3, 3 additional rows with same data. thanks

State Style Quantity
Maryland 100g 1
New york xzy10 1
texas 200g 2
OH 3