Excel 2007 マクロ 表の貼り付け

質問

Excel 2007 マクロ 表の貼り付け
Excel 2007 マクロ 表の貼り付けについて教えてください。

<Sheet1>の表にあるA2からD4を
<Sheet2>に値貼り付けをします。

表は画像を添付します。

マクロの記録では下記内容になります。

Sub Macro1()
'
' Macro1 Macro
'

'
Range("A2:D4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2:D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

<Sheet1>のA列の行の増減にかかわらず、<Sheet2>に貼り付けることができるように
するにはどのようにマクロを修正すればよろしいでしょうか。

回答No.1

keithin · ベストアンサー

sub macro1()

　range("A2:D" & range("A65536").end(xlup).row).copy　’←この１行の範囲の指定の方法です

　’以下はほぼ同じ。全く同じでも構わない。
　Sheets("Sheet2").Select
　Range("A2").Select
　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
　:=False, Transpose:=Falseend sub
end sub

＞A列の行の増減にかかわらず

ほぼ毎回のご質問，とは言いませんが２回に一回以上のご質問で必ず出てくるマクロの１行です。
「１行ずつ勉強して」(憶えてますね？あなたのお返事の言葉です)，そろそろマスターなさってください。

お礼

ご回答ありがとうございます。マクロをあきらめずにマスターしたいと思っています。このマクロの一行については安易な質問になり申し訳ございませんでした。次回からの質問は、同様の質問をしないようにいたします。引き続きアドバイスお願いいたします。