Macro to enter rows while copying formulas

[excelisland10]

Hi,

I’m kind of new to macros and having a hard time creating the following:

On my spreadsheet, I have three types of rows, let’s call them Type A, Type B, and Type C. I need a macro button that can do the following when I click it: First it asks the number of rows, I want to add and then it asks where to insert the new rows. For example, if I want to add four rows above row 275, I would enter 4 in the first prompt and 275 in the second.

I also need the different rows to contain different types of formulas. I was thinking of having templates for the three different rows (Type A, B, and C) on a different sheet and having the macro copying and pasting them based on this: the first row will always be Type A, any subsequent row will be Type B, and the last row will always be Type C. For example, with the macro above, I want to add 5 rows above row 300. So first prompt I will put in 5, then 300 in the second, and then I want the first inserted row to copy the formulas from the Type A row, rows 2-4 to have the formulas from Type B, and the fifth row to copy the formula from Type C. Also, keep in mind, the number of rows I want won’t always be five.

Any help on this would be greatly appreciated, please feel to ask questions if I made this too confusing.

 

[XLfriend777]

Hello excelisland10 and welcome to the forum. You could start this by breaking it down and not trying to do everything at once. Try the code below where you give it a row number and it then inserts 4 rows there. You can easily modify this code. Hope this helps get you started.

Sub AddRows()
StartRow = InputBox("Enter Starting Row Number", "Start Row")

Rows(StartRow & ":" & StartRow + 4).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub