Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M4")) Is Nothing Then
    Application.EnableEvents = False
    Application.DisplayAlerts = False
Dim FoundSalat As Range
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "F").End(xlUp).Row + 1
Range("E7:H" & iLastRow).UnMerge
Range("E7:H" & iLastRow).Clear
With Worksheets("БД")
    Set FoundSalat = .Columns(2).Find(WorksheetFunction.Trim(Target), , xlValues, xlWhole)
    If Not FoundSalat Is Nothing Then
    FoundSalat.Copy Range("E7").Resize(FoundSalat.MergeArea.Count)
        Range("E7").Resize(FoundSalat.MergeArea.Count).Merge
    .Range(.Cells(FoundSalat.Row, "C"), .Cells(FoundSalat.Row + FoundSalat.MergeArea.Count - 1, "C")).Copy Range("F7")
    FoundSalat.Offset(, 3).Copy Range("G7").Resize(FoundSalat.MergeArea.Count)
        Range("G7").NumberFormat = "dd.mm.yyyy"
    FoundSalat.Offset(, 2).Copy Range("H7").Resize(FoundSalat.MergeArea.Count)
        Range("G7").Resize(FoundSalat.MergeArea.Count).Merge
        Range("H7").Resize(FoundSalat.MergeArea.Count).Merge
    End If
End With
End If
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub