my code writes a changing calculation value to another part of my
spreadsheet.
I am trying to amend my code to paste to another worksheet in the
workbook and also write to a different line each time the value changes


can anyone point me in the right direction

current code below



Private Sub Worksheet_Calculate()
Worksheet_Change Range("$A$2")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Application.ScreenUpdating = False
With Sheets("sheet1")
..Range("A22").Copy
..Range("F2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

End With
Application.ScreenUpdating = False

End If

End Sub

thanks Jonathan