Hi
replace
withCode: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
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
Bookmarks