行をコピーして挿入する際のコピー時点滅をなくしたい

質問

マクロを勉強し始めたばかりの超初心者ですが、
質問させてください。

添付資料のように飲食店でのクレジットカード支払いの明細書を作成中です。
表のように、カード使用件数が一日に１件ではなく、実際には件数はバラバラです。
予め入力用の行を用意しておくのはスペースが邪魔で消去したりも面倒なので
コマンドボタンを利用し、実際にカードを使用した件数に合わせて行を挿入し、入力してゆくようにしました。（コードはネットでなんとか拾ってきました。）

挿入する行は予め入力規則を入れてある、空白の行（ここでは画像には入ってませんが、２行目）をコピーして挿入するようになってます。

以下のマクロを使ってコピー→挿入は出来るのですが、
コピーする際に出てくる点滅が視覚的に邪魔で気になります。
もし消せるようであれば教えてください。

Private Sub CommandButton1_Click()
Rows("2:2").Select
Selection.Copy
insertRow = InputBox("何行目の下に挿入しますか？") + 1
Cells(insertRow, 1).Insert shift:=xlDown
Application.CutCopyMode = False
Rows(insertRow).Select
End Sub

※Application.CutCopyMode = False
で、点滅が消えるとかなんとか。。。。見かけて入れてみたのですが、
点滅は変わらず・・・・そもそも用語をそこまでまだ知らないのが問題なのですが。。。

お手数おかけしますが、分かる方おられましたらご教授の程よろしくお願いいたしますm(__)m

回答No.3

DOUGLAS_ · ベストアンサー

Copy メソッド に Destination を指定してコピーすれば、点滅しません。

Private Sub CommandButton1_Click()
　　insertRow = InputBox("何行目の下に挿入しますか？") + 1
　　Rows(insertRow).Insert
　　Rows("2:2").Copy Rows(insertRow)
'　　Rows(insertRow).Select
End Sub

お礼

アドバイスありがとうございます！（すみません、コメントが更新出来てないようでした）
理想通りの結果となり、大変助かりました。
Rows("2:2").Copy Rows(insertRow)←の部分が肝となるかと思います。知識がないのでCOPYメソッドについて学習しようと思います。
どうもありがとうございました。
また質問を投稿する事が多々あるかと存じますが、その際は是非よろしくお願いいたします。

回答No.2

tsubuyuki

当方の２００３・２０１０共に、
コピー領域の点滅を止めるのも含めて、綺麗に動きましたよ＾＾
（インプットボックスをキャンセルすると、当然、エラーが起きますが＾＾；）
練習、と言うのであれば、このままで十分だと思います。

処理順・・・InputBoxの位置ですが、私は無理に変えなくても良いと思いますよ。
点滅させてからインプットボックスの方が、
「この領域（行）をコピーしまっせ」が明確ですからね。

まぁでもあえて言うなら、
私なら
・コピーする行（２行目）を選択（Select）
・インプットボックス
・コピー　　　以下続行
の順にするかなぁ、と言う感じです。
つまり

Private Sub CommandButton1_Click()
Dim insertRow As Long　　　'変数は名前・型を宣言する癖をつけた方が良いですよ

　　Rows("2:2").Select
　　insertRow = InputBox("何行目の下に挿入しますか？") + 1
　　Selection.Copy
　　Cells(insertRow, 1).Insert shift:=xlDown
　　Application.CutCopyMode = False
　　Rows(insertRow).Select
End Sub

こうですね。

これなら、点滅も気にならないですしね。

お礼

返信遅くなりすみませんでした。
続いて試してみました。仰る事が分かり易くて
大変勉強になりました。
アドバイス頂いた　Dimシリーズ（自分で呼んでますｗ）で、変数やら宣言やらさっぱり意味するところが分からないんで、マクロに対して拒否反応があったのですが、ちょっとだけ感覚で理解出来た気がします。また質問する事が多々あるかと思いますが、その際はどうぞよろしくお願いいたします。
ありがとうございました(#^.^#)

回答No.1

mt2008

InputBoxの位置を変えてみて下さい。

Rows("2:2").Select
Selection.Copy
insertRow = InputBox("何行目の下に挿入しますか？") + 1

↓

insertRow = InputBox("何行目の下に挿入しますか？") + 1
Rows("2:2").Select
Selection.Copy

お礼

ここを使うのも初めてで、回答に気づくのが遅くなりました。
早速試してみましたが、バッチリでした。
シンプルな回答でありがたかったです

ありがとうございました(#^.^#)