adding rows

[claudehollett]

What is the most efficient way to code inserting 35 rows to a sheet?

 

[daniels012]

It depends!
Do you want to add the rows starting at a specific row, at the bottom, at the top?

Michael

 

[daniels012]

This right here:

Range("A5:A40").Select
    Selection.Insert Shift:=xlDown

will do what you say.
It starts at cell A5 and adds 35 rows.

Michael

 

[Legacy 51064]

try:

Range("A5:A40").Insert Shift:=xlDown

 

[claudehollett]

This works well.
I have 3 header rows and 3 footer or total rows (for a total of 41 rows to be printed). Adding 35 rows keeps my page formatted for printing. When I add the new rows my 3 total row get pushed down (which is fine; I don't want them in the middle anyway). What code will get my page to break after row 38 to keep 35 data rows on the first page? Thanks

 

[daniels012]

This will add a page break at cell A38

Range("A39").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Michael