Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Column = 1 Or Target.Column = 2 Or Target.Column = 4 Then
Target.Copy Destination:=Sheets(2).Cells(Target.Row, Target.Column)
End If
End Sub