Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    If IsEmpty(Target.Value) Then Exit Sub
    Dim yCat As Long
    On Error Resume Next
    yCat = WorksheetFunction.Match(Target.Value, Sheets("каталог").Columns(2), 0)
    On Error GoTo 0
    If yCat > 0 Then
        Application.EnableEvents = False
        Sheets("каталог").Cells(yCat, 2).Copy Target
        Application.EnableEvents = False
    End If
End Sub