If Range("D5").Value <> "" Then
        Range("D2").Value = Range("D5").Value
    Else
        Range("D2").Value = Range("E5").Value
   
    End If

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.ShapeRange.Item(1).Hyperlink.Delete
    Selection.Delete
    ActiveWorkbook.Save
    
    Range("A1").Select
    ActiveSheet.Pictures.Insert("S:\logo.png").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _
        "https://bazaemail.ru"
    Range("C12").Select
    ActiveWorkbook.Save
End Sub

Sub УДАЛЕНИЕ_ДУБЛЕЙ_В_ЯЧЕЙКАХ_В_КОЛОНКАХ()
Dim lrow As Long, arrMail, key, strMail As String, dicTemp As Object
Application.ScreenUpdating = False
lrow = Cells(2, "E").End(xlDown).Row
Set dicTemp = CreateObject("Scripting.Dictionary")
For i = 2 To lrow
    arrMail = Split(Trim(Replace(Cells(i, "E"), ",", " ")), " ")
    For j = 0 To UBound(arrMail)
        If Not dicTemp.Exists(arrMail(j)) Then
            key = dicTemp.Item(arrMail(j))
            strMail = strMail & arrMail(j) & ", "
        End If
    Next j
    If Len(strMail) > 0 Then Cells(i, "E") = Left(strMail, Len(strMail) - 2) Else Cells(i, "E") = ""
    strMail = ""
Next i
arrMail = Split(Trim(Replace(Cells(2, "E"), ",", " ")), " ")
Application.ScreenUpdating = True
End Sub