Insert Custom Number of blank rows

PHOTO EMBED

Wed Sep 08 2021 06:04:35 GMT+0000 (UTC)

Saved by @Darkleech #vba

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
content_copyCOPY