End of macro log

[kgkev]

I want to create a log to record a few variables at the end of the marco.

I have done this by

    With Sheets("Progress Tracking").Range("A65000").End(xlUp).Offset(1)
            .Value = Date
            .Offset(, 1).Value = ToChase
            .Offset(, 2).Value = ToOrder
            .Offset(, 3).Value = ToChaseSoon
            .Offset(, 4).Value = totalqueries

    End With

However I do not want to record this data if it has stayed the same,

How can I compare all the variables quickly to check if anything has changed.

for example if it is the same day but the value of ToChase has change I want an new record on the log.

also if no value has changed but the date has then I also want a new value on the log.

Any suggestions welcome.

 

[kgkev]

solved it

might be a better way so still open to suggestions

    With Sheets("Progress Tracking").Range("A65000").End(xlUp).Offset(1)
        If .Offset(-1, 6).Value <> ToChase + ToOrder + ToChaseSoon + totalqueries Then
             .Value = Date
            .Offset(, 1).Value = ToChase
            .Offset(, 2).Value = ToOrder
            .Offset(, 3).Value = ToChaseSoon
            .Offset(, 4).Value = totalqueries
            With .Offset(, 6)
                .Value = ToChase + ToOrder + ToChaseSoon + totalqueries
             End With
        Else
            If .Offset(-1).Value <> Date Then
                .Value = Date
                .Offset(, 1).Value = ToChase
                .Offset(, 2).Value = ToOrder
                .Offset(, 3).Value = ToChaseSoon
                .Offset(, 4).Value = totalqueries
            End If
        End If
    End With