Copying results in another cell

yennifel 

The easiest way to do this, is to enter the formula

=D18

in cell D4.

If you don't want a formula in D4 for some reason, you'll need VBA code.

• Right-click the sheet tab.
• Select 'View Code' from the context menu.
• Copy the code listed below into the worksheet module.
• Switch back to Excel.
• Save the workbook as a macro-enabled workbook (*.xlsm).
• Make sure that you allow macros when you open the workbook.
• Warning: macros only work in the desktop version of Excel for Windows and Mac. They don't work in Excel Online (the version in the browser), nor on Android or Apple phones/tablets.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ErrHandler
    If Not Intersect(Range("D18"), Target) Is Nothing Then
        Application.EnableEvents = False
        Range("D4").Value = Range("D18").Value
    End If
ExitHandler:
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
End Sub