すみません、ちなみに
for i=1 to 3 で　setvariable Cell.offset(i-1 , 1)〜　 Next i
でやっても次の行の値は入ってませんでした。
Cell.Row でやったらシート全体の４００行分を出力されたｗ