アクティブ行の指定列に入力

ActiveCellのある行の指定列のセルを指定するコード。IntersectメソッドとRangeオブジェクトによる指定方法