スキルアップ・問題解決なら、モーグにおまかせ！

お世話になります。
 
下記のような表があり、CとDの空欄に計算式を入力して値を表示したいのですが、
入力されるセルとされないセルが出来てしまいます。
原因がわからないので教えていただきたいです。
 
　　A    　B    　C    　　　　D
　111    山田    A1000    東京都
　222    小林        
　333    高橋    B2000    大阪府
　444    斎藤        
　555    伊藤    A1000    東京都
　666    森    A1000    東京都
　777    加藤        
　888    林        
　999    鈴木        
 
 
Sub TEST()
 
Dim i As Integer
 
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    If Cells(i, 3).Value = "" Then
     
 Worksheets("sheet1").Cells(i, 3).Formula = "=Vlookup(…)"
  
End If
 
i = i + 1
 
Next i
 
MsgBox "完了"
 
 
End Sub
 

For ... Next はカウンター変数に自動で加算するので、
下記の行は不要です。
 
i = i + 1

 hatenaさま
 
ありがとうございます！
 
問題なく入力出来ました！