Create a snapshot of current status of cells daily

[AJA1234]

Good afternoon everyone. I am trying to find a way to create a daily snapshot of a cell's value in a range to the right of said cell.
Firstly, I have column 'N' whose cells' values I want entered into a cell in the same row to the right in a range which has sequential date header values .
Secondly, I would like to either automatically, or with a button I could press daily, have excel 'lock' those reference driven values into the cells with the current date as the header value.
There is conditional formatting in the 'Timeline' range to give me a visual representation of the daily progress of Column 'N'.
I hope I haven't been too confusing and would appreciate any guidance offered.

Thanks in advance.

 

[MrTeeny]

Not entirely clear what you mean by lock or how you want the data stored but something like this might be a starting point, it simply inserts a new column O so you have space to to enter the copied cells from column N then copies them and timestamps it with today's date in O1. If you already have your sequential dates in place it's easy enough to pick them out with an IF statement and avoid inserting a new column you'd simply dump the contents of N under todays date.

Sub copyColN()Dim FinalRow As Integer
  
Application.ScreenUpdating = False
Application.Calculation = xlCalculateManual


FinalRow = Cells(Rows.Count, "N").End(xlUp).Row


    
    
    Columns("O:O").Insert Shift:=xlToRight
    Range("O2:O" & FinalRow).Value = Range("N2:N" & FinalRow).Value
    Range("O1").Value = Date     'dump todays date in cell header




xit:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub