Sort data on exit and conditional formatting

[jingles9]

Hello, I am new to this and with the help of many people have created an extensive spreadsheet. It highlights yellow if something new was added to the sheet withing the last 7 days (using a date located in column B), it highlights orange if column I is set to expire in 14 days --conditional formatting code =AND($I8>=TODAY(),$I8<=TODAY()+14) and also highlights purple if column M is set to expire in 14 days or has already expired --conditional formatting code: =AND($M8<>"",$M8<=TODAY()+14).
I have two issues left that I just can't seem to solve.

1) When new information is added to the spreadsheet I want to be able to sort the data alphabetically by using Column C. The users have no excel training so I was hoping to have it auto sort on save or if that's not possible, adding a macro button that they can push that will auto sort for them.
The spreadsheet data starts at B8 and goes to P100. (headers located at B7-P7)

2)If the date in column I is set to expire in 14 days, it highlights orange. I would like it to highlight orange if it is set to expire in 14 days, or has already expired, AND there is nothing in column L.

Can anyone assist with this? Any help is greatly appreciated.

 

[jingles9]

With the help of rcm, the sorting issue has been solved.
code should be:
Private Sub Worksheet_Activate()
Dim rng As Range, r As Range
Set rng = Range("B8:P100")
Set r = Range("C8:C100")
'If Not Intersect(Target, rng) Is Nothing Then
Application.ScreenUpdating = False
rng.Sort Key1:=r, Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Application.ScreenUpdating = True
'End If
End Sub

 

[jingles9]

thanks to ACE_XL for the correct formula to fix my second problem. =AND($I8<>"",$I8<=TODAY()+14,$L8="")