输入重复数据时出现循环错误

Question

我创建的代码遇到错误，只要有重复数据，迭代调查创建的过程就会停止。

错误指向IE.Document.all("onetidListTitle").Value = ttle & ThisWorkbook.Sheets("Sheet1").Range("B" & count)，因为检测到重复后网页会重定向到错误页面。

网站没有弹出错误消息，而是被重定向到新网页。

现在我的问题是，我需要为流程添加哪些代码来跳过重复数据并继续进行调查创建的迭代？

以下是我创建的代码;

Sub Survey()
Dim IE As Object
Dim Status, Stat, ttle, link As String
Dim count, repeat As Integer
Set IE = CreateObject("InternetExplorer.Application")

Stat = "Complete"
ttle = "User Survey "
count = 6
Status = Range("C" & count).Value

Do Until Status <> ""
    If Status = "" Then
        If ThisWorkbook.Sheets("Sheet1").Range("B" & count) <> "" Then
            IE.Navigate "http://..."
            link = "http://..." & ttle & ThisWorkbook.Sheets("Sheet1").Range("B" & count) & "/overview.aspx"
            IE.Visible = False

            While IE.Busy
                DoEvents
            Wend

            delay 1
            IE.Document.all("onetidListTitle").Value = ttle & ThisWorkbook.Sheets("Sheet1").Range("B" & count)
            delay 1
            IE.Document.all("onetidDisplayOnLeftNo").Click
            delay 1
            IE.Document.all("ctl00_PlaceHolderMain_onetidCreateSurvey").Click
            Range("C" & count).Value = Stat

            Range("D" & count).Value = link
        End If
        delay 1
    count = count + 1
    End If
    delay 1
Loop
End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub