20/05/03 02:15:53 fR4zqWYb0.net
ごめん
ちょっとだけ修正させて
Sub 数字だけコピー()
Dim rr As Long
Dim cc As Long
Dim dat As Variant
rr = Range("C4").End(xlDown).Row - 4 '高さを求める
cc = Range("B5").End(xlToRight).Column - 2 '幅を求める
dat = Range("C5").Resize(rr, cc).Value 'データを変数に入れる
Range("AA5").Resize(rr, cc).Value = dat 'コピーする
End Sub