Colocar nombre de usuario con función o macro

Buenas tardes. Tengo la siguiente problemática cree el siguiente código en vba excel con ayuda de buscar en internet.

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub NombreDelUsuario()
ActiveCell.FormulaR1C1 = Application.UserName
End Sub

esta macro devuelve el nombre del usuario q tiene abierto el archivo, ahora sucede. Deseo q la macro coloque en la celda de la izquierda el nombre del usuario q coloco información en la celda de la derecha. Esto es para un archivo de excel compartido