Repeat Values specified # of Times

[skhaliq]

[TABLE="width: 143"]
<colgroup><col style="text-align: center;"><col style="text-align: center;"></colgroup><tbody>[TR]
[TD="align: center"]no of Times[/TD]
[TD="align: center"]Name[/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[TD="align: center"]Ali [/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]4[/TD]
[TD="align: center"]Butt[/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]Result[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[TD="align: center"]Ali [/TD]
[/TR]
[TR]
[TD="align: center"]2[/TD]
[TD="align: center"]Ali [/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]5[/TD]
[TD="align: center"]Adnan[/TD]
[/TR]
[TR]
[TD="align: center"]4[/TD]
[TD="align: center"]Butt[/TD]
[/TR]
[TR]
[TD="align: center"]4[/TD]
[TD="align: center"]Butt[/TD]
[/TR]
[TR]
[TD="align: center"]4[/TD]
[TD="align: center"]Butt[/TD]
[/TR]
[TR]
[TD="align: center"]4[/TD]
[TD="align: center"]Butt[/TD]
[/TR]
</tbody>[/TABLE]

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Copy
    Rows(i).Resize(Range("A" & i).Value - 1).Insert
Next i
End Sub

 

[Peter_SSs]

If you happen to have a lot of rows of original data, you might also try this as a faster alternative.

Sub Repeat()
  Dim a, b
  Dim rws As Long, i As Long, j As Long, k As Long, x As Long
  Dim s As String
  
  a = Range("A2", Range("B" & Rows.Count).End(xlUp)).Value
  rws = UBound(a, 1)
  ReDim b(1 To Rows.Count, 1 To 2)
  For i = 1 To rws
    x = a(i, 1)
    s = a(i, 2)
    For j = 1 To x
      k = k + 1
      b(k, 1) = x
      b(k, 2) = s
    Next j
  Next i
  Range("A2").Resize(k, 2).Value = b
End Sub