one code to do multiple things

hi, i have the code below which takes the value in cell U17 everytime it
changes, and places it in column A on a sheet called graphs thereby forming a
list down the sheet of all the values that appear in cell U17, for charting
purposes.

What i would like to do is to be able to duplicate this for different cells.
ie have the cell values of W25 appear in a list in column K on the graphs
sheet, and so on. this code was written for me by someone else as, could you
please give me some code that will enable me to capture the values for two or
three cells in sheet1 into the sheet called graphs?

any help would be greatly appreciated, thank you.

Private Sub Worksheet_Calculate()
Dim Dest As Range
With Sheets("graphs")
Set Dest = .Range("A" & Rows.Count).End(xlUp)
If Range("U17") Dest Then _
Dest.Offset(1) = Range("U17")
End With
End Sub

--
thanks