Insert row in a table on protected worksheet

If you want to delete the entire row(s) of the selection, you can use

Selection.EntireRow.Delete

Thanks Hans,

I have done it using another way. I have hiddent the last row of the array and I used row function to get row number of that row. Whenever new row is added the row number returned is the number of row below newly added row. I kept the number in other cell and in the macro using value property i take that number add 1 to it and insert the copied row.

You are very good at vb programming ..thanks again.

Try this:

Sub CopRow()

    Dim r As Long

    ActiveSheet.Unprotect

    r = ActiveSheet.Cells.Find(What:="*", SearchOrder:=xlByRows, _

        SearchDirection:=xlPrevious).Row + 1

    Rows(34).Copy

    Rows(r).Insert

    ActiveSheet.Protect

End Sub

It's great that you managed to create a macro yourself!

In many situations, it is not necessary to select ranges in VBA. Your macro could be shortened to

Sub CopyRow()

    ActiveSheet.Unprotect

    Rows(34).Copy

    Rows(54).Insert

    ActiveSheet.Protect

End Sub

Hi HansV

Thanks for your inputs. I managed to copy paste some commands from various forums and created my first macro within half an hour and achieved what I wanted to.

Have a look at the macro

Sub copyrow()

ActiveSheet.Unprotect Password:=""

Dim myrow As Integer

myrow = 34

Rows(myrow).Select      'This copies the selected row

Selection.Copy

Rows(54).Activate

ActiveCell.EntireRow.Insert

ActiveSheet.Protect Password:=""

End Sub