Insert Row Above Button and Format New Rows

[cmangi]

I am working on an excel file to help with our meeting minutes with my job. Currently every time there is a new item or minute the updater has to manually insert and format the cells.

I want trying to make a macro that will work by clicking a button towards the bottom that will add 4 new cells, correctly formatted, above the "New Item" button.

Follow links to images:
Before Image - https://imgur.com/zX3HaaI
After Image - https://imgur.com/CwX3RzE

 

[Chrisdontm]

I ran into this before, here is some code to try on a copy of your true data to see if it works.
I basically recorded keyboard shortcuts to start at the top of Column " N ", go to bottom of sheet, slide over to column " A ", used control+up arrow in order to land on the " New Item " cell, insert a row, then go up a row and copy it's formatting and paste it into the new row.
If there is anything in column " N " then it will stop it, also if there is anything under the " New item " cell...
This is what it looks like you are wanting, we can tweak it if necessary; ( Of course you will have to set the button where you want it, to activate)

Sub InsertSheetRow()
'
' InsertSheetRow Macro
'

'
Range("M1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -13).Range("A1").Select
Selection.End(xlUp).Select
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Range("A1:P1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Range("M1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("N1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, -13).Range("A1").Select
Selection.End(xlUp).Select
ActiveCell.Select
End Sub