请大神帮忙修改一下代码

透明世界1987

以下代码运行正常，对应名字的供应商会在标准交期基础上提前二天和一天
但是遇上周末周一就会出现问题，当M列填写的日期是星期一的话提前2天是周六休息，周末调整一下提前2天或者提前1天如果是周六的话再往前提一天


Sub 按钮35_Click()
    rq = Range("M8")
    E = Range("H65536").End(3).Row
    Range("M8:M" & E) = rq
    For i = 8 To E
        If Cells(i, "H") = "兆元" Then Cells(i, "M") = Cells(i, "M") - 0
        If InStr("奥德普、力旭、西泰、立诺、久联、利德尔、喜飞翔、新意科技、欧达、鑫浩宇、沪宁、绿盾、博量、卓途", Cells(i, "H")) Then Cells(i, "M") = Cells(i, "M") - 2
        If InStr("莱升、欧仑凯", Cells(i, "H")) Then Cells(i, "M") = Cells(i, "M") - 1
    Next