Insert blank rows based on cell value

[Admin]

Hi

replace

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

with

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