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