Insert blank rows based on cell value

Hi

replace

Code:

---

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

Code:

---

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

---

it's not fully work...for base upon 0 or 1, it's work but for base upon greater than equal 2 is still wrong

should be :

2-------title1----not inserted
-------title1 ---inserted row
4-------title2---not inserted
-------title2---inserted row
-------title2---inserted row
etc...

would you help me....
thanks...admin

Hi

Code:

---

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

---

Quote:

---

Originally Posted by Admin

Hi

Code:

---

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......