Låse visse kolonner, men stadig kunne kopiere rækker

Måske kan denne makro bruges. Den sætter en linje ind under den aktive celle og kopierer formlerne ind i den indsatte linje.

Sub InsertLine()
ActiveSheet.Unprotect
Dim c As Range
x = ActiveCell.Row
y = ActiveCell.Address
ActiveCell.Offset(1).EntireRow.Insert
Range("A" & x & ":K" & x).Select
For Each c In Selection
If c.HasFormula Then
c.Offset(1, 0) = c
End If
Next
Range(y).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub