I couldn't get this to work, is it possible for me to forward you my form for
you to review?
--
Lynn


"Eduardo" wrote:

Try
Sub test()
Dim InsertionPoint As Range, rg As Range
Dim colToCheck As String
Dim expandBy As Long
Dim wsh As Worksheet
Dim StartRow As Long
Dim ws As Worksheet

'Unprotect sheet
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Unprotect Password:="Password"
Next ws

Set wsh = ActiveSheet
colToCheck = "A"
expandBy = 25
'Find last currently used row in column colToCheck
Set InsertionPoint = wsh.Range(colToCheck & 65536).End(xlUp).Offset(1,
0).EntireRow
StartRow = InsertionPoint.Row - 1

'Insert rows
Set rg = InsertionPoint.Resize(expandBy)
rg.Insert

Range("C" & StartRow).Resize(1, 2).Copy _
Range("C" & StartRow).Resize(expandBy + 1, 2)

'Protect Sheet
Set MySheets = ActiveWindow.SelectedSheets
For Each ws In MySheets
ws.Select
ws.Protect Password:="Password"
Next ws


End Sub


"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