Insert blank rows based on cell value

[muhammad susanto]

Hi

If Ofst > 1 Then
    .Cells(I + 1, 1).Resize(Ofst - 1).EntireRow.Insert
    .Cells(I, 2).Resize(Ofst + 1).Value = .Cells(I, 2).Value
End If

it's realy realy work 1000%....

thank you for the help...admin

you are the best......