repeat cell answer from one cell to another

John_Garritano0212 

=IF(ISFORMULA(C20),C20,"")

You can try this formula in cell H4.

An alternative could be this code. In the attached file you can enter a formula in cell C20 and the result is returned in cell H4 as well.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngBereich As Range

Set rngBereich = Range("C20")

If Target.Cells.Count > 1 Then GoTo done

If Not Application.Intersect(Target, rngBereich) Is Nothing Then

If Application.WorksheetFunction.IsFormula(Target) Then
Target.Offset(-16, 5).Value = Target.Value
Else
Target.Offset(-16, 5).Value = ""
End If

End If

done:
Application.EnableEvents = True
Exit Sub

End Sub