amend a VB code please
 

hi, is there any chance of someone amending this code to have cell X25 form a
list down column K on the 'graphs' sheet, i basically want to duplicate what
this code does but add in one more cell, thank you

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



--
thanks