Run-time error '1004': Method Range of object_Worksheet Failed (because of wrong code)

Hello to the board!

Anyone can say what in this code is wrong, please?

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect userinterfaceonly:=True, Password:="", AllowSorting:=True, AllowFiltering:=True, AllowFormattingColumns:=True
If Intersect(Target, Range("E5:E300,M5:M100,D5:T300")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Application.Calculation = xlManual
If Target.Column = 5 Then
Dim i As Long
Range("D5:D300").ClearContents
For i = 5 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(i, 4).FormulaR1C1 = "=IF(RC[1]="""","""",SUBTOTAL(3,R5C5:RC[1]))"
Next i
End If
If Target.Column = 11 Then
'Dim i As Long
Dim b As Integer
Dim c As Range
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Each c In Range("K5:K300")
For b = 1 To Lastrow
If c.Value = Cells(b, 1).Value Then c.Value = Cells(b, 2).Value
Next
Next
End If

I take this when try to save: Excel Wrong Code - 2018-11-13_11-36-42.png

Thanks in advance!

There's nothing obvious.

Would you upload the workbook so that we can see the problem in context.

...and after the change of Title, would you upload to this forum rather than a file hosting site please.

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem - not what you think the answer might be. (think google search terms?). Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the address bar)

Many members search our previous posts, and thread titles play a big part of the search. I doubt anybody would do a search based on your title?

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(note: this change is not optional )

Hello,
I actually deleted the second line because it creates another problem: it does not allow me to use a function (a column that works as a hyperlink to open another worksheet in the same workbook). This is the piece of code I'm talking about: Hyperlink Code2.png. And, in general, with the protected worksheet, it blocks me several other functions (maybe the security string should be improved ... I do not know. But with or without this line (the protection line), the problem (Runtime error...) still appears. It appears only when I save the workbook from the Visual Basic Window. I re-send the same file with the protection line I had removed.
Thank you for the help!