Oct 09 2021 09:24 AM
Oct 09 2021 09:58 AM
I'd do it like this:
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the following code into the code window:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Range("B12"), Target) Is Nothing Then
With Worksheets("Sheet2")
Set rng = .Range("B" & .Rows.Count).End(xlUp).Offset(1)
End With
rng.Offset(0, -1).Value = Range("B12").Value
rng.Value = Now
End If
End Sub
Switch back to Excel.
Save the workbook as a macro-enabled workbook.
Make sure that you allow macros when you open it.