Adding Rows using Command Button

[batonrougejosh]

Hello,
After looking through a lot of post, I cannot seem to find exactly what I need.

I am looking to add a command button in 'Cell B17' that will insert a new row after 'Row 15' and copy all formatting (some columns have list, some nothing, some formulas) from 'Row 15' into newly inserted row.

Couple things:
After I insert a new row, I need the command button to move down with everything and now reside within the parameters of 'cell B18'. (Keep going on as many rows as needed)
After using the command button once, I need it to do the same thing, just now adding new row after 'row 16' and copying formulas from 'row 16'. (Keep going on as many rows as needed)
Lastly, I cant have any button prompt asking how many rows or where to add rows. Just need it to do add as I click.

I hope someone can help me with this. It would be amazing if I could get this to work!!

THANKS ALOT

J

 

[Candyman8019]

I did something similar in one of my workbooks; however, I put the buttons at the top of the sheet and the user would select any cell in the row where they want to insert before clicking the button. After inserting the row, it will copy formulas in columns E,K-ZZ to the new row and one beyond. Here's the code I used.:

Private Sub InsertRowFormulas_Click()
   With Selection
     If .Areas.Count = 1 Then
        .EntireRow.Insert
        Intersect(.EntireRow.Offset(-.Rows.Count - 1).Resize(.Rows.Count + 2), Range("E:E,K:ZZ")).FillDown
     End If
   End With
End Sub