Option Explicit
Sub Общий()
    With Application
        .ScreenUpdating = 0: .EnableEvents = 0
        With ActiveSheet
            DuplicateShapes .[O1], .[K1], "Звездочка", _
                            .[S6], .[R6], "ОбъектX", _
                            .[S7], .[R7], "ОбъектY", _
                            .[S8], .[R8], "ОбъектZ"
        End With
        .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub

Private Sub DuplicateShapes(ParamArray arg() As Variant)
    Dim arr() As Variant, lc As Range, c As Range, x As Shape, i&, cnt&
    For i = 0 To UBound(arg) \ 3
        For Each x In arg(i * 3).Parent.Shapes
          If x.Name Like arg(i * 3 + 2) & "*" Then x.Delete
        Next
        With arg(i * 3).Parent.UsedRange
            arr = .Formula
            Set lc = .SpecialCells(11).Offset(1, 1)
            .Replace "*" & arg(i * 3) & "*", "=" & lc.Address, xlWhole
            For Each c In lc.DirectDependents
                If c.Address <> arg(i * 3).Address Then
                    With ActiveSheet.Shapes(arg(i * 3 + 1)).Duplicate
                        cnt = cnt + 1: .Left = c.Left + c.Width - .Width
                        .Top = c.Top: .Name = arg(i * 3 + 2) & Format(cnt, " 000")
                    End With
                End If
            Next
            .Formula = arr
        End With
    Next
End Sub

Sub ааааа()
    Dim oPic As Picture
    For Each oPic In ActiveSheet.Pictures
        With oPic.TopLeftCell
            If Not Intersect(.Parent.[B:B], .Cells) Is Nothing Then
                oPic.Top = .Top : oPic.Left = .Left
                oPic.Height = .Height: oPic.Width = .Width
            End If
        End With
    Next
End Sub

=ТЕКСТ(СУММ(--(0&СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A2:E2;"/";"     ");{1:6};5)))*10^{3:0});"000\/000")

=360/(СЧЁТ(A3:A$9999)+СТРОКА(A1)-1)*ПИ()/180*(СТРОКА(A1)-1)

select ... , null as B , ... from ...

shell "explorer """& [D3] &"""",vbhide

=СУММ(ЕСЛИОШИБКА(--ПСТР(ПОДСТАВИТЬ(D8:AH8;"/";"     ");{1:6};5);))

=ПСТР(ЛЕВБ(A2;ПОИСК(",";A2)-1);МИН(ЕСЛИОШИБКА(ПОИСК(СИМВОЛ(СТРОКА($65:$90));A2);""));99)

=СЖПРОБЕЛЫ(ПСТР(ЛЕВБ(A2;ПОИСК("(";A2&"(")-1);ПОИСК(",";A2&",")+1;99))

=ПСТР(ЛЕВБ(A2;ПОИСК(")";A2&")")-1);ПОИСК("(";A2&"(")+1;99)

Sub выбрать_1()
      Const sPath$ = "d:\Desktop\Реестр договоров.accdb"
      Dim sConn, oRS As Object
10    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath
20    On Error GoTo err
30    Set oRS = CreateObject("adodb.recordset")
40    For i = 1 To 5
50        rr = oRS.Open("select * from " & i, sConn)
60        With Sheets(i & "")
70            .UsedRange.Delete
80            With .ListObjects.Add(xlSrcQuery, oRS, , , .[A1])
90                .Refresh: .Unlink
100           End With
110       End With
120       oRS.Close
130   Next
140   Set oRS = Nothing
150   On Error GoTo 0
160   Exit Sub
err:
170    MsgBox "An error #" & err.Number & " (" & err.Description & ") has occurred in procedure выбрать_1 on line " & Erl
End Sub

=ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(C4;1;1;ПРОПИСН(ЛЕВБ(C4)));4;1;ПРОПИСН(ПСТР(C4;4;1)));6;1;ПРОПИСН(ПСТР(C4;6;1)))