Copy lines based on number in a column

[CHAIMSCH]

I am looking for a function to copy lines based on a number in column C, for example if column C has a number 2 copy this line 1 time so i have 2 same lines, if column C has a 3 copy this line 2 times so i have it 3 times, i have a worksheet with 300 lines.

 

[mvptomlinson]

Hi Chaimsch, try:

Sub chaimsch()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Cells(i, "C") > 1 Then
        Cells(i, "C").Offset(1, 0).Resize(Cells(i, "C").Value - 1, 1).EntireRow.Insert
        Rows(i).Copy Rows(i + 1).Resize(Cells(i, "C").Value - 1, 1)
    End If
Next i
Application.ScreenUpdating = True
End Sub