I have merged a 3 Vba's together into the following

Sub Macro1()
'
' Macro1 Macro
'

'
Dim LR As Long
Application.ScreenUpdating = False
    With Sheets("Calendar Items").Select


LR = Range("A" & Rows.Count).End(xlUp).Row

With Range("A1:C" & LR)
    .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortTextAsNumbers
    .Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    
End With
End With
Sheets(3).Unprotect userinterfaceonly = True
    
    Sheets("Summary").Select
    Range("C3:D3").Select
    Selection.Copy
    Range("C4:C50").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""

    Range("A3").Select
Sheets(3).Unprotect userinterfaceonly = True
With Sheets("Calendar Items").Select
    Range("A2:C3001").Find(What:="", After:=Range("A2:C3001").Cells(1), LookIn:=xlFormulas, LookAt _
 :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
 False).Select
End With
Call NamedRange1

Application.ScreenUpdating = True
End Sub