Macro to copy last row down

[karabiner8]

I searched and searched but all the solutions I've found seem to have some little twist to them and I'm not knowledgeable enough to change the code to suit my situation. Here is what I am trying to do (Excel 2003 on XP).

I have a large table where the user enters data. Some columns are for data entry and others have formulas. The formula columns are locked and the worksheet is password protected.

I need a macro that will find the last row of the table and copy it down X numbers of rows. It should allow the user to enter the number of extra rows that they need. For simplicity it can just select the entire last row of the table and copy it down X number of times. The macro should then re-protect the worksheet. The first formula column is W.

Thanks

 

[jbeaucaire]

This might do it:

Option Explicit

Sub AddRowsOnProtectedSheets()
Dim Rws As Long, LR As Long

Rws = Application.InputBox("How many rows to add?", "Add Rows", Type:=1)
If Rws = 0 Then Exit Sub

Application.ScreenUpdating = False
ActiveSheet.Unprotect "password"

'Find last row
    LR = Range("W" & Rows.Count).End(xlUp).Row
'copy that row
    Range("A" & LR).EntireRow.Copy Range("A" & LR + 1).Resize(Rws)
'remove any non-formulas
    On Error Resume Next
    Range("A" & LR + 1).Resize(Rws).EntireRow.SpecialCells(xlCellTypeConstants).ClearContents

ActiveSheet.Protect "password"
Application.ScreenUpdating = True
End Sub

 

[karabiner8]

Very nice. It works just as expected. Thanks Jbeaucaire.