少し言葉足らずでした。
iのカウント（空白行までループ）は上手く出来ているので、現マクロ有効ブックの新シートに取得情報を
書き込めていないようです。