В ячейку вписать дату и время

[Romuald]

Всем добрый день!!!
Подскажите, пожалуйста, как в макросом в ячейку ("BG1")к названию "OBNOVLENIE" дописать дату и время?

Sub Perenos_OBNOVLENIE_Dannih_Dannie_v_ A_B_v_59_kolonku()
Dim i As Long, j As Long, x As Range
Application.ScreenUpdating = False
Sheets("Data Base").Activate
Columns("BG:BG").ClearContents

Range("BG1").FormulaR1C1 = "OBNOVLENIE"


Range("BG1").Font.Bold = True
For i = 2 To Cells(Rows.count, "A").End(xlUp).Row
Set x = Sheets("Update").Columns(1).Find(Wh at:=Cells(i, 1).Value, LookAt:=xlWhole)
If Not x Is Nothing Then Cells(i, 59) = Sheets("Update").Cells(x.Row, 2) Next i
End Sub

[аналитика]

Range("BG1") = "OBNOVLENIE - " & Now

[Romuald]

СПАСИБО!!!!!!!!