Solved: How to add new range in the VBA

[mdmackillop]

There is a default variable Target which will be your active cell (unless you selected a range of cells), and can be referenced in the code.
[VBA]
If Not s Is Nothing Then 'if there is an overlap
Cancel = True
With Target
.Value = usernameLookup(Application.UserName)
'update the cell with the username
.Offset(0, 1).Value = Now()
'update the adjacent cell with the date and time
End With
End If
[/VBA]