Sub macro()
Dim a As Long, b As Long
[COLOR="Blue"]Application.ScreenUpdating = False[/COLOR]
For a = [H65536].End(xlUp).Row To 1 Step -1
If Cells(a, "H") > 0 Then
For b = 1 To Cells(a, "H").Value Step 1
Rows(a + 1).Insert Shift:=xlDown
Next b
End If
Next a
[COLOR="Blue"]Application.ScreenUpdating = True[/COLOR]
End Sub