添付画像のように、ひとつのシート内にある、同一の文字の場所を繰り返し取得し変数に格納したいです。

使用する変数は同一のもので、1回目の繰り返し時「変数⇒B1」、2回目の繰り返し時「変数⇒B3」、3回目の繰り返し時「変数⇒B6」

としたいです。

また、これを8月が出なくなるまで続けたいです。

以上について、ご教示ください。