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
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
Cheers !
Excel Range to BBCode Table
Use Social Networking Tools If You Like the Answers !
Message to Cross Posters
@ Home - Office 2010/2013/2016 on Win 10 (64 bit); @ Work - Office 2016 on Win 10 (64 bit)
Bookmarks