ワークシートの最下部のシート[タブ](Sheet1/Sheet2...)のところを右にクリックし、コードの表示から以下を貼り付けてください。画面が開いたら、閉じるときは、一番上の「×」で閉じてください。
>データが1,10.20なら sheet2 の B 列、
>2.15.35なら sheet2 の C 列
>5.40ならsheet2 の D 列
>それ以外は sheet2 の E 列に
は、それぞれ、
1 , 10, 20 →B列
2 , 15, 35 →C列
5 , 40 →D列
それ以外 E列
と読み換えましたので、もし違っているようでしたら、ご指摘ください。
なお、以下は、リンクではありませんので、現在の設計では、シート1で、入力したセルを削除しても、シート2側が消えていることはありません。
'-------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B10", Range("B65536"))) Is Nothing Then
'適用範囲
With Worksheets("Sheet2") 'ワークシート2
Select Case Target.Value
Case 1, 10, 20
.Cells(Target.Row, "B").Value = Target.Value
Case 2, 15, 35
.Cells(Target.Row, "C").Value = Target.Value
Case 5, 40
.Cells(Target.Row, "D").Value = Target.Value
Case Else
.Cells(Target.Row, "E").Value = Target.Value
End Select
End With
End If
End Sub
'-------------------------------------------------
補足
行はSHEET1と同じ行です。 ご回答よろしくお願いします。