انسخ هذا الكود في ورقة العمل
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 Then
If Not IsEmpty(Target) Then
Target.Offset(0, 1) = DateDiff("d", Target.Offset(0, -1), Target) & " -NTS"
Target.Offset(0, 2) = Format(Target.Offset(0, -1), "dddd")
End If
End If
End Sub