曜日別Excelセルにデータコピー

A1セルに2014/3/18と入力した際、入力ボタンで図のようにA2～A11に下記の式で火曜日のデーターE2～E11が入力出来たのですがA1の日付（曜日）を変更した際、入力ボタンを押すごとにA2～A11の値がその曜日ごとのデーターに変わるようにしたいのですが。VBAコードをお解りになる方よろしくお願いします。 Sub 入力() ActiveCell.Value = Range("D2:D11").Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub