Insert row, copy formulas, increment ID+1

[uson]

This forum is so helpful! Thanks to all the pro's helping the newbies.

Our team (multi-users) uses a workbook to track new projects. I would like some code to do the following:
1 - add a button to the worksheet to Add A New Project
2 - the code would find the last project row (there are 3 rows at the bottom with totals, etc) so the last project is NOT the last row but col C is part of a merged cell
3 - look at the last project ID (col C) and add +1
4 - insert the row above the total line and copy the formats, formulas and validations from the row above

Ideas? Thanks so much.

 

[Michael M]

To add a button, open the form controls toolbar and select the Command Button
Place the button on the screen where you want it, then assign the code below to the button, by right clicking on the button and selecting Assign Macro
There will be better ways but try

Sub addstuff()
Dim lr As Long, r As Long, val As Range
lr = Cells(Rows.Count, "C").End(xlUp).Row
Set val = Range("C" & lr - 3)
Rows(lr - 3).Copy
Rows(lr - 2).Insert
Rows(lr - 2).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
    Application.CutCopyMode = False
Range("C" & lr - 2).Value = val + 1
End Sub

 

[uson]

Michael,

Outstanding. Thanks alot..

Phil