Can an expert provide the code that will allow the user to insert one or many blank rows.
I am using the below code that works fine for a single row so maybe this code could be amended.
The user needs to say where they want to add the row and how many rows to insert.
theRow = InputBox("Enter Row Number where new row is to be inserted ")
Rows(theRow - 1 & ":" & theRow - 1).Copy
Rows(theRow & ":" & theRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.CutCopyMode = False