Findプロパティを取得できません - Visual Basic - 教えて！goo

数日前マクロをはじめた初心者です。

"・・・Findプロパティを取得できません"というエラーの解決方法がわかりません。シートには以下の内容が記述されています。

-------------------------------------------------（以下シート）
A列　　　　B列　　　　C列
空白　　　田中　　　　北海道札幌市中央区宮の森12345
・　　　　　鈴木　　　　北海道札幌市中央区宮の森45678
・　　　　　佐藤　　　　北海道札幌市北区あいの里78956


AA列　　　　　　AB列
1　　　　　　北海道札幌市中央区
2　　　　　　北海道札幌市北区
3　　　　　　北海道札幌市東区

-------------------------------------------------（以上シート）

B列（人名）のC列（住所）をAB列（地域）に対応したAA列（番号）で割り振りたいのです。
そこで以下のマクロを作りました。
-------------------------------------------------（以下マクロ）
Sub macro1()
Dim i As Integer, j As Integer
i = 1
j = 1
Do While Cells(i, "B").Value <> ""
If Application.WorksheetFunction.Find(Cells(j, "AB"), Cells(i, "C"), 1) = 1 Then
Cells(i, "A") = Cells(j, "AA").Value
i = i + 1
j = 1
Else
j = j + 1
End If
Loop
End Sub
-------------------------------------------------（以下マクロ）

A列
1
1
2

と入る予定でつくったのですが、最期の 2 が入らずエラーとなります。
どこが間違いかわかりません。
ご教授願います。