Protect sheet but allow insert macro.

Hello all,

And thank you for all the top advice I have received.

I have a need to protect my worksheets but they are useless unless I am still able to use an insert cells macro I have written. I've tried allowing all of the protect sheet options but it seems if it is protected in any way this macro wont work.

Has anyone got any ideas about this?

Here is the code for your reference (essentially it finds a range, copies then inserts it to the top of a table)

Sub New_Contact()

' Insert_Contact Macro
'

'Find Copy Cells
    Cells.Find(What:="Contact copy", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
'Make Selection
    ActiveCell.Offset(2, -1).Range("A1:J1").Select
'Copy Selection
    Selection.Copy
    ActiveCell.Offset(-14, 2).Range("A1").Select
'Find Target Cells
    Cells.Find(What:="Contact record", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    ActiveCell.Offset(4, -3).Range("A1").Select
    Selection.Insert Shift:=xlDown
'Paste Selection
    ActiveCell.Offset(16, 5).Range("A1").Select


End Sub

Thanks