Insert blank rows based on cell value

[muhammad susanto]

hello vba experts...

i have code for "insert blank rows between base on count of each rows" but does'nt perfectly work, see this below :

Sub muhammad_susanto()
'insert blank rows between base on count of each rows'
Dim LR As Long
Dim I As Long
Dim Ofst As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row
For I = LR To 1 Step -1
    Ofst = Cells(I, 1).Value
    Ofst = Ofst - 1
    If Ofst = 0 Then
        Else
        Cells(I + 1, 1).Resize(Ofst).EntireRow.Insert
        Cells(I, 2).Resize(Ofst + 1).Value = Cells(I, 2).Value
    End If
Next I
End Sub

it's error in the line :

Cells(I + 1, 1).Resize(Ofst).EntireRow.Insert

i appreaciated who want's help me...

regards...
muhammad susanto