Sub init()
' Used to store the domain name and username information
Dim strUserDomainAndName As String
strUserDomainAndName = Environ("UserDomain") & "\" & Environ("UserName")
' Begin inputing date information
Range("A3").Select
' Go to the last row
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
' Insert formula
ActiveCell.FormulaR1C1 = strUserDomainAndName
' Begin inputing date information
Range("B3").Select
' Go to the last row
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
' Insert formula
ActiveCell.FormulaR1C1 = "=NOW()"
' Copy and paste values
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' Disable marching ants around copied range
Application.CutCopyMode = False
' Offset to the right
Selection.Offset(0, 1).Select
End Sub