これは、ここから持ってきました。Basickazu4basicこれは、数値かどうかを判定するところ新しく、それ以外は今までのコードを組み合わせて実現できそうです。sub上のコードは何時でもYESを返します。msgboxを以下のように変更してみると理由は簡単です。・・・・(0,0)にaを代入してある場合というわけで、何時でもYESであるらしい。いうところが面倒くさいと思うんだけど、Cell.Typeを使用すれば、解決できそうです。Basickazu4basic067との違いは、最後のcopyRangeをmoveRangeに変えるだけです。Basickazu4basic以下の例では、B2:C3の範囲のセルをA6を先頭とする位置にコピーします。Basickazu4basic065と同じです。Basickazu4basic063と同じようにRowsプロジェクトを取得し、isVisibleをTrueに設定します。Basickazu4basicRowオブジェクトを取得し、isVisibleプロパティをFalseにする。Basickazu4basic地味ですが、挿入できる行数を指定(第二引数)できて便利です。