Create columns and copy data

First this is not an 101 issue. for this you have to run a macro. I have included the macro as follows

Option Explicit

Public dTime As Date
Sub Increment()

    Dim i As Long
    
     i = Cells(Rows.Count, "E").End(xlUp).Row + 1
     
    dTime = Now + TimeValue("00:00:05")
    Application.OnTime dTime, "Increment"
    Range("E" & i) = Now() & " -- " & Range("A4").Value
    
End Sub