選択範囲を変数で最下端の次に移動したい

質問

Excel2007でマクロ作成中の初心者です。
以下のコードで、範囲のみを正常に移動できました。

Sub 範囲のみの移動()
Dim tmp As String
Range("BR30:EE91").Select
Range(tmp).Offset(60, 0).Select
End Sub

範囲("BR30:EE91")は、一定で変わらないのですが、
Offsetの　(60, 0).Select　　60は変わるのでこれを変数にしたいです。
これをデータ入力の最下端セル　Range("BR30").End(xlUp)の
次のセルまで移動させたいのですが、変数の仕方がわかりません。
よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

>囲("BR30:EE91")は、一定で変わらないのですが、
>Offsetの　(60, 0).Select　　60は変わるのでこれを変数にしたいです。
Sub 範囲のみの移動()
　　Dim myRng As Range
　　Dim n As Long

　　Set myRng = Range("BR30:EE91")
　　n = 60
　　myRng.Offset(n).Select
End Sub

>これをデータ入力の最下端セル　Range("BR30").End(xlUp)の
>次のセルまで移動させたいのですが、変数の仕方がわかりません。
Sub Test()
　　Cells(Rows.Count, "BR").End(xlUp).Offset(1).Resize(62, 66).Select
End Sub

お礼

あありがとうございます。やりたいことがすぐできました。あ感謝もうしあげます。