Hi Catalina,

Thanks for your post. However I can't get it work. Can you please take a look at my code and let me know what I did wrong? Thanks.

=================================================
Sub CopyFormulaResults()
Range("H10:H25").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False



End Sub

=================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("H10:H25")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
CopyFormulaResults
End If
End Sub

enter this macros in a module :

Sub auto_open()
' works when you double click a cell and press enter, not when formula result changes, or when you copy formula to range
' whenever you need to update , double click on any cell then press enter
ThisWorkbook.Worksheets("Foaie2").OnEntry = "CopyFormulaResults"

End Sub

Sub CopyFormulaResults()
Range("H10:H50").Select
Selection.Copy
Range("I10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub