Automatically Add Formated Row After Last Row

I am trying to do is have an additional row, or rows entered after after the last available row is filled. I've written a macro that searches for the last data set in a column, and will then copy the row above and insert, then copy the formating and formulas down, but I can only make this work by having the user click on a control button.

I would like to make this macro work automatically when data is enterted into the last row in the quote form. Below is what my current macro looks like:



Sub AddLine()

With ActiveSheet
. Unprotect Password:="*********"
ActiveSheet. Range("m17").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.FillDown
ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, 0).Select
.Protect Password:="*********"
End With
End Sub