Automated Date Stamping Formula

simonnw1025 Assuming your finances sheet is called "Finances" and the cell you are taking the total from is on a sheet called "TotalSheet", cell B75. Further assuming you want to list the historical values in columns Y (date) and Z (total).

This macro should do the trick:

Sub StoreTotal()
    Dim ttl As Variant
    ttl = ThisWorkbook.Worksheets("Finances").Range("B75").Value
    With ThisWorkbook.Worksheets("TotalSheet")
        'See if we need to add a heading
        If .Range("Y1").Value = "" Then
            'no heading, add one
            .Range("Y1").Value = "Date"
            .Range("Z1").Value = "Total"
        End If
        'find the first empty row in column Y
        With .Range("Y" & .Rows.Count).End(xlUp).Offset(1)
            .Value = Date
            .Offset(, 1).Value = ttl
        End With
    End With
End Sub