Macro to Update Table Row Data only if Not Blank

Just to finish the story, in case someone would like to use the code
change

If Len(DateUp) = 0 Then Msg = MsgBox("Enter a date ", vbCritical, , " ALERT"): Exit Sub

to

If Len(DateUp) = 0 Then Msg = MsgBox("Enter a date ", vbCritical,  " ALERT"): Exit Sub

Thx for the Rep