と　様

早々の返信ありがとうございました。

>>エクセルのB2のセルの値を読み取って判定する必要があるのではないでしょうか。

ご指摘を参考に、セル値を読み取るコードを追記し、動くようになりました。
ヒントを得て、最終的には下記コードでシンプルに仕上げる事ができました。

　エクセル起動
　　エクセル新規シート
　　「B1」をエクセル選択
　　エクセル貼り付け
　　「A1」へ「★」をエクセルセル設定
　　セル行=2
　　オンの間
　　　　「B{セル行}」をエクセルセル取得
　　　　もし、それが空なら
　　　　　　抜ける
　　　　違えば
　　　　　　「A{セル行}」へ「●」をエクセルセル設定
　　　　セル行=セル行+2　

ご指摘頂きまして、誠にありがとうございました。