Add this code (Red Font ) to the existing code.
        Set Rc = Nothing
For Each cel In Range("E8:E29")
If InStr(1, cel, "*") > 0 And cel.Offset(0, 1) = "" Then
MsgBox ("Please fill all mandatory fields")
Exit For
End If
Next cel

End Sub