show message data one time instead of every time and fixing

hello
i have this code doesn't work very well as my condition it should show data based on col f =<14 days in my case it shows only 12 days as in my data it suposses showing also 8 days and 14 day as my condition and i would show one message show all data contain depending on condition like this
name case due
asd125 EXPIRED 12days
asd126 LONG TERM 8days
asd127 EXPIRED 14days
asd128 LONG TERM 14days

HTML Code: 

Sub WorkSheet_Calculate()
Dim LR As Long, i As Long, j As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    If Range("F" & i).Value <= 14 & Days Then
        MsgBox "..CONTRACT ALMOST ENDED.." & vbLf & vbLf & " Name : " & Range("B" & i).Value & "    " & "case : " & Range("c" & i).Value & "    " & "due : " & Range("f" & i).Value
        j = j + 1
    End If
Next i
If j = 0 Then MsgBox "No Renewal for today"
End Sub

Thanks Trevor nothing changes

I didn't have time to finish this, but this file is a start. This was a real hurry up job, but it does most of what you want I think.
You could also consider conditional formatting to format the cells depending on how many days are left.

Thanks achammar but I would one message not many times show messages as I said it supposes showing all data applies condition

Try change to

Please Login or Register  to view this content.

Awesome ! @jindon can you make the code more arranging like the sheet the topics headers on top and the data under them

great @ Achammar could you show data message box like sheet the data under headers
thanks again

Indent in message box properly is too hard and not worth to try...

Please Login or Register  to view this content.

Thanks again I would ask about direction showing message from right to left if is possible ,My office language is Arabic sometimes I make layout page from right to left but when run code it keep showing from left to right and then the data is reversing in showing the question is , is possible way to make showing data like the same sheet from right to left by change setting inside excel or by code ?

No idea about Arabic showing from right to left in msgbox...

many thanks Jindon & Achammar for your assistance and your time
best regards,
Abdelfattah

As Jindon mentioned, it would be difficult to format a message box to have aligned columns of data. Maybe this option will work for you. It creates a new sheet instead with the summary in it, then gives you the option to delete it if you don't want it.
Or you can delete it at anytime.
I don't know what right to left reading order looks like, so I couldn't do anything with that.