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
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