Произошла ошибка «Несоответствие типов» всякий раз, когда мой макрос L oop через столбец A и возвращает более 15 совпадающих строк

Question

В настоящее время я сталкиваюсь с проблемой, когда мой макрос перебирает столбец A для поиска строки «Код страны:» и возвращает совпадающую строку более 15 раз. Произошла ошибка «Несоответствие типов». Я выполнил поиск в Интернете, но не смог найти решение.

Я проверил и сравнил свою строку с необработанными данными, и было показано, что орфографическая ошибка отсутствует. Я заметил, что если я вставлю небольшой объем данных, где макрос возвращает около 7 результатов, проблем не будет.

Это мой код. Я прошу прощения за мой код, поскольку я все еще учусь, и я нашел этот образец онлайн

Sub testCountryCode()
Dim ws As Worksheet
Dim toWs As Worksheet
Dim vDB, vR()
Dim i As Long, n As Long, c As Integer
Dim j As Integer

Set ws = Sheets("Database")
Set toWs = Sheets("CMF")

vDB = ws.UsedRange
c = UBound(vDB, 2)
For i = 1 To UBound(vDB, 1)
    If InStr(vDB(i, 1), "Country Code:") Then
        n = n + 1
        ReDim Preserve vR(1 To c, 1 To n)
        For j = 1 To c
            vR(j, n) = vDB(i, j)
        Next j
    End If
Next i
toWs.Range("a2").Resize(n, c) = WorksheetFunction.Transpose(vR)
Sheets("Result").Select

End Sub