put in sheet code-module (column A1:A100 is target B is dest.) change if..

Dim x, cl

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = x
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Value
End Sub


"unlucky" skrev:

What I need to do is this:

I have two column of data, the first has numbers and the second is
blank. If I change anything in the first column I need the old value
to appear in the second column automatically. What would be the
easiest way to accomplish this?