エクセル2000のVBAで、入力セルのデータを転記したい

質問

シート１の５行目あたり(例えばBの５)に入力用セルを置き、値を入れてボタンを押したら
11/6の部分にその値が表示されるようにしたい。

同じシート１の１０行目に題名を入れている(下記ではABCD・・・の部分)
１１行目からデータ内容を下に記載していく。

10　　　　A　　　　　　B　　　　　C　　　　　　　D
11　2007/11/1　＄２０００ 月平均　　半月平均
12　2007/11/2　＄２３００ 月平均　　半月平均
13　2007/11/3　　　　　　　 月平均　　半月平均
14　2007/11/4　＄２３５０ 月平均　　半月平均
15　2007/11/5　　　　　　　 月平均　　半月平均
16　2007/11/6　　　　　　　 月平均　　半月平均

このデータは日付A列がもともと入っています。
毎日の為替相場をデータにしていきたいと考えてください。
土日祝日等は入力しませんので、入力しない日(休祝日だった場合)はそのまま空欄に
していくと言う形です。11/5が休みだといって11/4の次のセルを11/6にすると言うのではありません。
１年３６５日あるのでデータとしては日付部分に３６５行分先に入力されている形です。
Bだけが空欄で、CとDはアベレージ計算式が入っています。

下のマクロを組みましたが、これだと１７行目の指定した列から入力されてしまいます。
どのようにしたらいいのか教えていただけますか？
入力セルに日付も必要ですか？

Sub ボタン1_Click()
Application.ScreenUpdating = False
Sheets("シート１").Select
Range("B5").Select
Selection.Copy
Sheets("シート１").Select
Range("A65536").Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = Flase
Sheets("シート１").Select
Range("C10").Select
Selection.ClearContents
Range("B5").Select
End Sub

回答No.1

nekoron07 · ベストアンサー

毎日、その日のデータを入力する、ということですね。

VBA内で「今日」の日付を取得する方法がわからなかったので、ワークシートでTODAY関数を使って取得する方法です。
B5のセルに数値、B6のセルに　「　=TODAY()　」と入力して、下記マクロを実行してみてください。

Sub ボタン1_Click()
Dim souba, today
　　Range("B5").Select
　　souba = ActiveCell
　　today = ActiveCell.Offset(1, 0)
　　Range("A11").Select
　　Do While ActiveCell <> today
　　　ActiveCell.Offset(1, 0).Range("A1").Select
　　Loop
　　ActiveCell.Offset(0, 1) = souba
　　Range("B5").Select
End Sub