Send e-mail - filter date range & customer name

Evening All

With the attached worksheet I am trying to e-mail the customer a weekly acknowledgement e-mail of the submissions they sent last week (Monday-Sunday) and submissions which have been completed.

I have two issues:

- The code e-mails every customer, even if they didn't send or have completed any work last week. I'm guessing I need to alter the below?

OrigList = ""
    For Each C1 In OrigRng
        If Not OrigList Like "*" & C1 & "*" Then
            If Len(OrigList) > 0 Then OrigList = OrigList & ","
            OrigList = OrigList & C1
        End If
    Next C1
    
    Origs = Split(OrigList, ",")

- Secondly, I cannot get the code to pick up the date range in Column D. If I change the format to number type no problem but in Date format the e-mails all appear blank. Any ideas please?

If ProjData(6) >= CDbl(LW3) And _
        ProjData(6) <= CDbl(LW1) Then
            If Len(RecBullets) = 0 Then RecBullets = "<b><u>SUBMISSION RECEIVED</b></u><ul>"
            RecBullets = RecBullets & "<li>" & ProjData(1) & " - " & ProjData(9) & ": " & ProjData(9) & "</li>"
        End If
      
        If InStr(ProjData(2), "Completed") > 0 And _
        ProjData(3) >= CDbl(LW3) And _
        ProjData(3) <= CDbl(LW1) Then
            If Len(CompBullets) = 0 Then CompBullets = "<b><u>SUBMISSIONS COMPLETED</b></u><ul>"
            CompBullets = CompBullets & "<li>" & ProjData(1) & " - " & ProjData(5) & ": " & ProjData(9) & "</li>"
        End If

Many thanks!