Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("J3:J500")) Is Nothing Then
Dim MV As Range
Dim L As Variant
L = Target
Set MV = Worksheets("маты").Columns(1).Find(L, , , xlWhole)
    If Not MV Is Nothing Then
    k = MV.Value
    Debug.Print
    Target.Offset(0, -7) = MV.Offset(0, 1) & " " & MV.Offset(0, 2) & " " & MV.Offset(0, 3)
    Target.Offset(0, -6) = MV.Offset(0, 4)
    
  End If
End If
End Sub

Sub main()
   Dim book As Workbook, sht As Worksheet
    Application.ScreenUpdating = False
    ThisWorkbook.Worksheets(Array("заявка")).Copy
    Set book = ActiveWorkbook
   book.SaveAs ThisWorkbook.Path & Application.PathSeparator & Worksheets("заявка").[e6] .Value & ".xlsx"
    
       Worksheets("заявка").[a1:j200].Value = Worksheets("заявка").[a1:j200].Value
              
   book.Close True
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim arr, i As Long, sRez As String, Valid
    On Error Resume Next
    If (Intersect([c3:c1000], Target) Is Nothing) Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Valid = Target.Validation.Formula1
    If Valid <> "" Then
        Target.Validation.Delete
        Exit Sub
    End If
    arr = Sheets("маты").[a2:a1000].Value
    For i = 1 To UBound(arr)
        If InStr(UCase(arr(i, 1)), UCase(Target.Value)) > 0 Then sRez = Replace(arr(i, 1), ",", ".") & "," & sRez
    Next
    Target.Validation.Add Type:=xlValidateList, Formula1:=sRez
    Target.Select