VBAでセルに式を埋め込むときに良い式展開の方法はないでしょうか

VBAでセルを足し算するんじゃなくって、
式を埋め込みたいときに思いついた方法が文字列でゴリ押しする方法でした。
一応成功しましたが。これだとさすがに冗長すぎると思いました。

前にも似たような質問をしたのですが、VBAでrubyのように式展開させる方法はないのでしょうか？

sub cells_sum
  for i = 1 to sheets.count
    for j = 4 to 34
      sheets(i).cells(j, 5) = "=sum(b"+cstr(j)+":c"+cstr(j)+")" 
  next j: next i
end sub

format()で実現できそうな気配ですが、なかなか情報にたどりつきません。
　　

sub fo
dim s as string
dim array(100) as integer
for i = 0 to 100
  array(i) = i + 1
next i
for each a in array
  a = cstr(a)
  range("a1") = format(a,"=sum(a@:b@)")
next a
end sub 'NG