Возможно, вы захотите использовать событие workbook_open для запуска подпрограммы в указанное время, которое управляет передачей.
В области кода ThisWorkbook:
Option Explicit
Private Sub Workbook_Open()
Application.OnTime TimeValue("18:00:00"), "Module1.GetValueAtSixPm"
End Sub
В стандартный модуль 1 положить:
Public Sub GetValueAtSixPm()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2") ' <== Change as required
With ws
.Range("O20") = .Range("N20")
End With
End Sub