もう使用していない古い環境(Windows7、Excel2010)だけど、質問のコード >>416 で期待通りに動きました(A〜Iまで一定の間隔で印字)