Sub Insert_Lines() ' Insert Custom Number of blank rows Dim HowManyRows As Long HowManyRows = InputBox("How many Rows?") For i = 1 To HowManyRows Selection.Insert Shift:=xlDown, copyorigin:=xlFormatFromLeftOrAbove Next i End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter