Get an Update of Old Value & New Value (Track Changes) History in another sheet

Dear Experts,

Looking forward your valuable input on this query!

Immediate support is really appreciated!

Thanks & Regards,
Rajeshkumar R

Dear Expert,

Above code I got it from below link

https://www.youtube.com/watch?v=llfrKfpNNf0

Could you please help me in Customizing Code to my requirement as mentioned above!

Thanks & Regards,
Rajeshkumar R

Dear Friends,

Below code helped me to meet subjected Requirement:-

Dim Oldvalue As String
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "Data" Then
        If Not Intersect(Target, Sh.Range("AO2:EE1000")) Is Nothing Then
            Application.EnableEvents = False
            With Worksheets("LogDetails")
                .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = UCase(Environ("username"))
                .Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Format(Now, "DD-MMM-YYYY HH:MM:SS")
                .Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Cells(ActiveCell.Row, "AN").Value
                .Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Cells(1, ActiveCell.Column).Value
                .Range("A" & Rows.Count).End(xlUp).Offset(0, 4).Value = Oldvalue
                .Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Value = Target.Value
            End With
        End If
    End If
    Application.EnableEvents = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Oldvalue = Target.Value
End Sub

Thanks & Regards,
Rajeshkumar R