Insert column without conditional formatting/locking

Hi,

I am using the following code to allow users to insert a column into a protected sheet. The problem I have is that some of the original columns have conditional formatting and are locked. Is there a way of altering the code to insert a column without copying the conditional formatting/locking from the adjacent column?

Sub WritingInsertColumntoleft()

' Unlock
ActiveSheet.Unprotect "numeracy"

'Insert column to the left of the active cell
ActiveCell.EntireColumn.Insert

 ' Lock
    ActiveSheet.Protect Password:="numeracy", AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
ActiveSheet.EnableSelection = xllockedCells

 ' Select
    Sheets("Number & Algebra").Select
    Range("A1").Select