Hoe lokale variabele waarde in cell kopiëren?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Y As Variant
Dim U As Variant

Application.ScreenUpdating = False

Y = Format(Now, "yyyy-mm-dd_hh:mm:ss")
U = Application.UserName


Workbooks.Open ("log.xlsx") 'geen pathfile want het bestand staat in de default path

    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select

'hierbij wordt de juiste positie bepaald in het werkblad

'------------
'HIER moet de opdracht komen voor het plakken van de waarde U
'------------




    Range("B1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select


'------------
'HIER moet de opdracht komen voor het plakken van de waarde Y
'------------


'---------nog - toe - voegen ------
'Workbook.close

    End Sub

Workbooks.Open ("log.xlsx")
  Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 2) = Array(Format(Now, "yyyy-mm-dd_hh:mm:ss"), Application.UserName)
ActiveWorkbook.Close True