VBAで特定行へのコピーを指定した回数繰り返す処理をしたいが。

質問

行２を行１へ、コピー＆ペーストする。
行３を行１へ、コピー＆ペーストする。
行４を行１へ、…
というように、行１へのコピー＆ペーストを、指定した回数行う、
という処理をＶＢＡのコードで書きたいのですが、本をみてもよくわかりません。
回数の指定は、特定セルに入力した値を取得するような形でやりたいのです。
具体的に、こう書けばできるよ、といった回答をお願いいたします。

回答No.1

nishi6

こういうことでしょうか・・・

Sub RowCopys()
　　Dim rw As Long '行カウンタ
　　Dim copyCot As Long 'コピーする回数(A30にセットされているとする)

　　copyCot = Range("A30")
　　For rw = 1 To copyCot
　　　　Rows(rw + 1).Copy Destination:=Rows(1)
　　Next
End Sub

お礼

本みながら、悪戦苦闘していたら、GETValue とDo Loop Untilとを組み合わせて、何とかできるようになりました。
今回は、良回答のポイントを差し上げられないのですが、がんばる気を起こさせていただいたので感謝しております。また次回質問の際には、どうぞよろしくアドバイスお願いいたします。

補足

早々にご回答ありがとうございます。
さっそく実行してみたのですが、Excelのシートに何の変化も起こりませんでした。
何か実行の仕方が間違っていたのでしょうか？