Hello, I�m adding new / empty Rows (in this case 8463 Rows, starting at Row 21). The first code I got using the Macro recorder. (It simply adds rows one after the other). I modified it to reduce the steps by putting a simple loop in. It works but takes ages (even if I turn the screen off with Application.screenupdating = False ). Code: Sub Insert8463RowsAtRow21ByInserting8463Rows() Rows("21:21").Select For i = 1 To 8463 Step 1 Selection.Insert Shift:=xlDown Next i End Sub 'Insert8463RowsAtRow21ByInserting8463Rows() The Second Code I got as well from the recorder. (It shifts everything down to make a space equal in Rows to the number of Rows I want.) That works quite quickly so I�m Happy. (I took the line Range("A8483").Activate out because I couldn�t see that it did anything. I hope that was OK??) Code: Sub Insert8463RowsAtRow21ByMovingEverything8463Downwards() Rows("21:8483").Select Selection.Copy Rows("8484:8484").Select ActiveSheet.Paste Rows("21:8483").Select ' Range("A8483").Activate Application.CutCopyMode = False Selection.ClearContents End Sub 'Insert8463RowsAtRow21ByMovingEverything8463Downwards()
This question generated 24 answers. To proceed to the answers, click here.