ボタンを押す作業を繰り返すVBAについて

Question

登録ボタン

　　　A 　 B 　 　　 C D E F G
1 銘柄コード　銘柄名称　 前日終値　始値　現在値　高値　安値
2 　2914 　　日本たばこ産業 2006 2022 2032 2033 2016
3 4568
4 4063
5 7267

上記のようなエクセルでA2セルを選択した状態で登録ボタンを押すと、B2G2セルの値を取得するようなVBAなのですが、この作業を300回繰り返すVBAを教えて頂けないでしょうか？
上記の例でいうとB3G3,B4G4,B5G5の値を取得する作業を300回繰り返したいです。

Private Sub CommandButton1_Click()
a_col = ActiveCell.Column
a_row = ActiveCell.Row
code = Cells(a_row, a_col).Value
If code <> "" Then
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!前日終値"
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!始値"
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!現在値"
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!高値"
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!安値"
End If

End Sub

A2セル選択→登録ボタンクリック、A3セル選択→登録ボタンクリックを繰り返し行いたいのですが、
For i = 1 To 300
Next i
をどの部分に入れたらよいのかと改行する際の方法が分かりません。
宜しくお願いします。

Comments

[BluOxy]

> For Nextでできると思う
是非、試してみましょう。

For Nextの使い方が分からなければ検索しましょう。もし検索してもわからなければ、参考にしたサイトの内、分かった点と分からなかった点を記載してください。

[gudeo]

https://tonari-it.com/excel-vba-for-next/
こちらのサイトを参考にして(0,1)を(0+i,1)に変更したのですが、改行の方法が分かりません。
宜しくお願いします。

[BluOxy]

特定の行列にあるセル（例えば、C2のセル）の内容（日本たばこ産業）を取得する方法は分かるでしょうか。その時にはどのようなコードを書いているでしょうか。

[BluOxy]

質問は編集できますので、gudeoさんが理解している情報と理解していない情報を列挙して頂けると回答が得られやすくなると思います。

[gudeo]

こちらで、楽天RSSから取得をしております。
Selection.Offset(0, 1).Select '1行ずらす
Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"