How to insert rows on a second Worksheet based on a value in a cell

[rob22193]

I'd like to copy/paste rows of data from Worksheet1 onto Worksheet2 and insert a number of rows based on a cell value (Column C in my example) from Worksheet1. For example if my data is:

Worksheet1:

I want Worksheet2 to display this:

Thanks!

 

[rpaulson]

try rhis on a copy of your file.

Sub Do_it()

Dim rs As Worksheet
Set rs = Worksheets("Sheet2")


lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 2 To lr

For x = 1 To Cells(r, "C")
    wr = rs.Cells(Rows.Count, "A").End(xlUp).Row + 1

    rs.Cells(wr, "A") = Cells(r, "A")
    rs.Cells(wr, "B") = Cells(r, "B")
    rs.Cells(wr, "C") = Cells(r, "C")

Next x

Next r

End Sub

 

[rob22193]

Thanks!