VBA初心者です。セルに関数を埋め込むコードについて質問があります。（どうかお力をお貸しください。）

Question

前提・実現したいこと

VBAで集計表を作成しております。
各セルに関数を埋め込むコードについて困っています。
具体的には、「=INDIRECT(TEXT(B7,"mmdd")&"!D4")」このような関数を埋め込みたいのですが、
「=INDIRECT(TEXT($B$7,"mmdd")&"!R4C4" )」このようになってしまいます。

また、下記のコード以外にもっと良い方法があればご教示いただきたく存じます。

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

行列ともに変数としているため無理やりformulaR1C1を用いました。

その結果、下記のよう関数が各セルに埋め込まれてしまい、値が出ません。
=INDIRECT(TEXT($B$7,"mmdd")&"!R4C4" )

該当のソースコード

Dim strTmp As String, strTmp2 As String 'セルに入れる関数の文字列strTmp

For i = 7 To dayCount + 7
    For j = 4 To 9
        strTmp = "=INDIRECT(TEXT(R" & i & "C2,""mmdd"")&""!R4C" & j & """ )"
        Cells(i, j).FormulaR1C1 = strTmp
    Next j
Next i

試したこと

列の変数jをなくし、列挙することにしたら下記のような関数が埋め込まれ、値が出た。
=INDIRECT(TEXT(B7,"mmdd")&"!D4")
しかしながら、列挙することで？分量も増え、このパターンの処理が他にもあるた改良したい。

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

ここにより詳細な情報を記載してください。

Answer 1

無理やりformulaR1C1を用いました。

マクロの記録をすると、なぜか、formulaR1C1で記録されますが
（記録されたものがいつも正解とは限らないので）、
別にFormulaプロパティを使ってもいいですよ。

Range("E4:E10").Formula　"=INDIRECT(TEXT($B$7,""mmdd"")&""!D4"")"

みたいな感じで一回やってみてください。たぶんループする必要ないです。