Hi Tom,
Create a button - for example via the control toolbox toolbar, and in design mode right click on the button and select "view code".
In VBA enter the following code to execute when the button is pressed
Code:
Range("D9:D22").Replace What:="X 1D", Replacement:=Range("D6").Value
Exit VBA, exit design mode and press the button.
HTH,
Fazza