Excel VBA l oop с тем же значением даты

Question

Я вставляю значение ячеек Excel в шаблон Word.documents с некоторым замещающим текстом из значений Excel. Столбец "A" заполнен датами, столбец "B" заполнен людьми, "C" адресами людей ...

Код ниже заменяет дату (найти-заменить текст, простой), а затем добавляет значения ячеек в существующую таблицу слов до конца, но добавление всех людей в одну таблицу независимо от даты, и мне нужно, чтобы каждая дата была новым шаблоном документа с тем же словом.

Буду признателен за помощь! Спасибо!

введите описание изображения здесь

rng = wKz.Cells(Rows.Count, "B").End(xlUp).Row

i = 1

n = 2


Do Until i <= rng

  With wDoc.Tables(3)

    .Rows.Add

    .Cell(n, 1).Range.Text = wKz.Range("C" & n).Value

    .Cell(n, 2).Range.Text = wKz.Range("D" & n).Value & "," & " " & wKz.Range("E" & n).Value

    .Cell(n, 3).Range.Text = wKz.Range("F" & n).Value

  End With

   i = i + 1

   n = n + 1
 
Loop

If i > rng Then

    wDoc.Tables(3).Rows.Last.Delete

End If