как проверить или такие строки уже были добавлены ?
делаю так

For i = 1 To LR 'перебираем строки
    On Error Resume Next
    xDD = DateDiff("ww", DateValue(Now), Sheets("архівні_документи").Cells(i, ParamDate))
   
   For p = 1 To UBound(Array_Date)
     If (Array_Date(p) = xDD Or Array_Date(p) >= xDD) And xDD > 0 Then
     maxRowTrg = Sheets("Оповещение").UsedRange.Rows.Count
     ThisWorkbook.Sheets("архівні_документи").Rows(i).Copy ThisWorkbook.Sheets("Оповещение").Cells(maxRowTrg + 1, 1)
    End If
     Next p
  Next

как то можно сравнить сроки ?