使用vba将单元格的值复制到另一个单元格

我一直没有find一个简单的VBA脚本,将特定单元格的值写入另一个单元格。 我在这里find了下面的代码,但它似乎不起作用。 我真正想做的是不断地把单元格G22的值放在单元格F15中。

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("G22")) Is Nothing Then Range("F15") = Range("G22") End If End Sub 

这应该工作。

 Range("F15").Value = Range("G22")