Worksheet Change event and data tables

Does this give you any ideas?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Sheets("Sensitivity Table").Cells(Target.Row, Target.Column) = Target.Value
End If
End Sub