Sixthsense's solution is awesome, with the downside that it will keep a record if a calculation is done, rather than when that specific cell changes...
@Sixthsense: Would adding something like below not make sure it only records when there's a change?
Private Sub Worksheet_Calculate()
If ThisWorkbook.Worksheets("VOLUME RECORD").Range("A" & Rows.Count).End(xlUp) <> Range("M225").Value Then
With ThisWorkbook.Worksheets("VOLUME RECORD").Range("A" & Rows.Count).End(xlUp).Offset(1)
.Value = Range("M225").Value
.Offset(, 1).Value = Now
End With
End If
End Sub
Bookmarks