列の最後まで他のシートの値を転記したい

前提・実現したいこと

表を作成するにあたり、他のシートから値を転記したいと考えています。
現状、早急に作りたかったため、マクロの自動記録機能を使って
VLOOKUPの部分の作成し、他の部分はねとを見ながら作成致しました

発生している問題・エラーメッセージ

シートを指定したところから、
cellsからnextまでが飛ばされてしまいます。

エラーメッセージ
```エラーメッセージは特にありません

### 該当のソースコード

Sub 月10()

' 10月
Application.DisplayAlerts = False
Worksheets("転記先").Select'実際にはシート名があります
Dim i
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 7).Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC2,転記元,13,0),0)"'実際にはシート名があります
Next
End Sub


### 補足情報（FW/ツールのバージョンなど）

Windows10でExcel2019を使用しています。

ttyp03

2020/09/16 02:37

列なのか行なのか。転記と言いつつ固定値を代入していますし。もう少し情報を整理してください。

tgsf

2020/09/16 04:17

ご指摘ありがとうございます。このマクロでやりたいことは客先から来た資料を元にこちらが作成した表に値を入れるという作業を自動化したいというところから作成しました。別のエクセルでは上記のマクロで作動するため自分でも原因がわかりませんまた、客先資料を全て写すのではなく、必要情報のみ表に入れるので上記のようにしております。私自身、マクロに関しては全くの無知なのでネットの情報を自身でつなぎ合わせて作成しているため組んだ結果こうなったぐらいしか私も理解していないのでどこがどうなっているかはあいまいになっています。こんな状態で申し訳ございませんが正しく実行されないところをご指摘いただけれ幸いです。長文失礼いたしました。