Snasui Excel Forum

Sub insertROW()
'
' insertROW Macro
'

Worksheets("User").Select
lr = ThisWorkbook.Sheets("User").Cells(Rows.Count, 2).End(xlUp).Row
Cells(4, 100).Select
lc = Selection.End(xlToLeft).Column
Cells(lr, 2).Select

Dim i, j, k As Integer
i = lr - 5
j = Range("element").Value
k = i + 6

For i = i To j - 1
Rows(k).Select
Selection.Insert
Cells(k, 2) = Cells(k - 1, 2) + 1

k = k + 1


Next i

End Sub