Fra ecel til vba

Hej har denne kode ( en del af kode)
dag = 1
      For t = start To slut
      dato = UgeTilDato(aar, uge, w)
ugedag = Sheets("Ugedage").Range("a" & w).Value
'Do While Sheets("helligdage").Range("a" & u).Value <> ""
'If CDate(dato) <> CDate(Sheets("helligdage").Range("a" & u).Value) Then
.ActiveDocument.Bookmarks("dag" & dag).Select
.Selection.Text = ugedag & vbNewLine & dato
'End If
'u = u + 1
'Loop
dag = dag + 1

w = w + 1
If w > 5 Then
w = 1
uge = uge + 1
End If
Next

Koden virker , som det kan ses er do løkken remmet ud
Så koden virker altså på denne måde
Koden skriver over til at Worddokument hvor der er 5 Bogmærker Dag1 , dag2 osv
Her skrives så ugedag & vbNewLine & dato
Men det jeg ønsker er at den kune skal skrive i bogmærkerne hvis datoen ikke fines i regne arket helligdage (altså min do løkke der er remmet ud) hvis rem fjernes skriver den samme dato m.v. i det samme bogmærke, dvs, den flytter sig ikke
håber nogen kan overskue den her