Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then _
Target(, 2).Value = Target.Value
End Sub
Private Sub Worksheet_Calculate()
Dim i As Long
For i = 1 To 100
Cells(i, "B").Value = Cells(i, "A").Value
Next i
End Sub
Private Sub Worksheet_Calculate()
Range("A1:A100").Copy
Range("B1:B100").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub