Application.Username & Now Function macro

[bloodmilksky]

Hi Guys, I hope you are all well.

I was just wondering if anyone can help me I am just looking for a simple sub that simply puts the Application.Username in column E and Date and Time in Column F each time the macro is used and will create a list of Users And Login Times.

any help would be greatly appreciated

many thanks

bloodmilksky

 

[JoeMo]

Sub LogMe()
With Range("E" & Cells(Rows.Count, "E").End(xlUp).Row + 1).Resize(, 2)
    .Value = Array(Environ("UserName"), Now)
    .EntireColumn.AutoFit
End With
End Sub