Hi,

why don't you show us the code you currently have. And how many lines do
you want to add at any one time, or is it just one line? And are you really
asking how to fill the formulas down but leave the remainder of the lines
unchanged?

For example, if you have protected the spreadhsheet using code and the
userinterfaceonly:=true option and you want to extend the formulas down one
row and these formulas are in columns D:H. Then

Bot = Range("D1").End(xlDown).Row
Range("D" & Bot & ":H" & Bot + 1).FillDown

Might do it.

If this helps, please click the Yes button

Cheers,
Shane Devenshire
"LCN" wrote:

How do I get a form (that will be protected) using a macro to add additional
lines to automatically copy the formulas above to the new added lines without
adding another macro?
--
Lynn