Good afternoon, My morning has been busy or I would have responded earlier. I really hope this isnt a school project.
magicstart = 22
startrange = "F" & CStr(magicstart)
rws = Selection.Value
Rows(CStr(magicstart + 1)).Select
For x = 0 To rws - 1
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B" & CStr(magicstart + 1 + x) & ":" & "E" & CStr(magicstart + 1 + x)).Select
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
Please take a look and you may very well have to make changes for it to work EXACTLY how you wish. The point is, it is a good start.