Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
On Error Resume Next
[maliste].Find(Target, LookAt:=xlWhole).Offset(0, 1).Copy Target
Application.EnableEvents = True
End If
End Sub